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le 1 er hebdomadaire des programmes informatiques 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
ATARI . CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET 
VIC 20 . HEWLETT PACKARD HP 41 . MULTITECH MP-F II . ORIC 1 . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 



THE FRENCH COMPUTER: 
L'EXELVISION EXL 100. 




Luniirj ccnlralo do voire ordina- 
tour est posee a c6te de voire te- 
leviseur Installe dans voire fan- 
N-i.nl. .i bonne distance delecran, 
voua [louver commencer a taper 
voire premier programme sur le 
clavier a infrarouge. Serail-ce un 
IBM PCjunior?Etbien non.il s'agil 
dun EXCELVISION. un EXL 100 
I'.tomonl el cost un ordi- 
nateur francais 

Une polite mervoiHod'oslhft l iquo. 
d'astuces, de lechnologle et qui 
prendra probabloment des sa 
commercialisation en Septem- 
h'" 'inn place importante sur le 

. ri>ir<- rruirnli.il 
Exammonsle petit nouvoau liini 
to centralosepresente sous la for- 
me dun boitiornoirrectangulalro, 
comporlant sur sa lace avanl un 
tiroir derangement pourdouxpoi- 



gnees de jeu Cetto unite est re- 

lieu (iu soclour (,'l .1 vnliF' l.-h.'vi 

seur par una prise PERITEL. Et ce 

sonl les souls fits do I'ongin. lecla- 
vier est a inlrarougo alnsi quo los 
deux manottes de )ou. fonction- 
nanl entro 3 ot 6 m&tres solon la 
disposition de3 pieces 
Pas do til supplomontairo, tirn lo;; 
usines a ga* avec des cables s'en- 
torllllant do parlout A I'intorieur 
di; nolle nnitrj 34 Kdo memoire vi- 
ve, 8 K de ROM pour le monilour 
resident et 16 K sur ROM enficha- 
ble pour lo Bnsic genre Microsoft 
tres puissant, Et cen'est pas lout, 
on Avril 85 une cartouche d<- HAM 
16 K sera dlspontbie alnsl qu'une 
tntorfaco Videotexle el le locteur 
de dlsquetto. Pour nous resumar, 

Suite page 13 



PLEIN DE PRIX, 
DEPRIESTER ! 



C'est Olivier DEPRIESTER qui 
remporte le concours mensuel 
avec son programme CALTAB 
pour PC 1500. une micro teuille de 
calcul. Le systeme de pondera- 
tton des votes par le nombro do 
programmes recus pour un ordi- 
naleur donne porto ses fruits : 
c'esl un petit programme pour un 
petit ordinatour qui gagne le con- 
cours mensuel de 10.000 Francs 
ot les cadcauxolf oris par DDI.DU- 
RIEZ. LOGIST1CK et la REGLE A 
CALCUL Les aulres gagnants 
sont on page interiouro. ■ 



LE HIT DU BLASE 

Bonjour. je suis responsable dans 
un magasin qui vends de la micro- 
informatique a Paris. On m'a tres 
aimablement demande de vous 
donner un npercu des meilleurs 
ventaa do logicielsde la somame 
Cotte fois-ci, jo vous parlerai d'AP- 
PLE II, bion sur, do ses compati- 
bles. C'est fou, notro pays traver- 
se, parait-il. uno ense importante, 
el pourtant la vente des micro-or- 
dinatours so porte a mervoille, ot 
nous sommes ecrases par un fa- 
buloux appetit on programmes. 
J'ai un penchant pour les pro 
grammes d'actions quo Ton ap- 
polle aussi arcades ; j'avoue quo 
jo m'ennuio un peu avec les pro- 
grammes dnvonturos ou los war- 
gamos si vous pref6rez.ou oncoro 
losjoux do reflexion Deplus.otje 
m'arrete lei do parlor do rnoi, j'ai In 
suite page 8 



ORDINAL 1... 

Michel CHEVALET va lonlor de 
presenter en 6 emissions les ap- 
plicalions possibles avoc un mi- 
cro ordinatour familial et quel est 
te materiel qui repond le mieux 
auxcriterosdefinis pour cos appli- 
cations Lo premiere emission du 
19Mars1raiteraderEducationdos 
Enlants Au programme du 19 ega- 
lomont Quo (aire avec un micro 
do moms do 6000 r ' Unreportngo 
sur le "Bus Informatiqui- ' da la 
RATP qui va do CES on CES pour 
fairo manipulor du materiel Inloi 
niatiqiie (ORDINAL t sur TF1 lo 
Lundi 19 Mars a 18 H 25) 

Suite page 8 



EDITO 



l ,i television ■: inti-f rv--.F- do plus 
on plus a nous Michel CHEVALET 
nous a (all los honneurs do TF1. 
c'est malntenanl Goorgo LECLE- 
RE (tAntonne 2 qui prosonto la 
disquolto HE8DOGICIEL SOFT- 
WARE APPLE N' ton direct du Sa- 
lon du Son (lo 16 Mars a 18 Houros 
30) Cette disquolle contiont, 
comme vous lo save*, dou/o pro- 
grammes ocrii par doslectoursde 
IHobdo Mais ce nest pas loul 
dc-s la somnino prochaine, jo vous 
parlerai d'un nouvoau concours 
organise par HEBDOGICIEL ot 
Suite page 8 
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form.". 


Joan-Marc HERMAN 
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Cata-Marranl 


FranckCORNIOUET 




PiKIC " 


ATARI 




Ovni 


Christian DOCAO 




Pago 14 


CANON X-07 


i ,i:,m> hnques 


JohannSIROUR 




l'.l(||-' '.I 


CASIO FX702P 




Apollo 1? 


Robert TREGUIER 




I'.II).' '■< 


COMMODORE 64 
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Frodfmc Ml 1 INI 




I'.KK 11, 


VIC 20 
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Pascal nioMAS 




IMiji it; 


HP 41 




Mare> 


Philippe IELOUK 
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MPFII 




Survia 


G6mk.IROUC.EVIN 




Paga t 


ORtCI 




lank 


Philippe PRUDHOMMEAL 


I'.n;.' ID 


MZ80 C 


ir!c .In iiiiiiirl.' 


LucCOIFFIER 




P,|i|C .1 


PC 1211 
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1 n. 1 1 AMENT 




WiUf 1.' 


PC 1500 




Mr. In. Ill 


TWorry DOMBUDES 




1'. 1-' 


ZX81 




Glunch 


Benoit RONDEAU 
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SPECTRUM 




1 irv.-m- 


JOftl lAllOUINJ 




l',i.|.- 1/ 


TRSBO Geographic 


If, mi .ii- 


r.r.i:. iihannou 




!-.|.|i- |H 


TI99 4/A(I>.8.) 




IV'. \w 1 


J JOLY 
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TI09 4/AIIM' ) 




Mild M;im 


PPALAUolH TEISSIER 
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THOMSON T07 




Meinn .' 


Joan YVeaLEFRlEC 




I\im.< .' 


Programme logo 


Gr*aphismbot 
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M BODIN 
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LES CONCOURS PERMANENTS : 

10 000 francs de prtx au moillcur programme CHAOUE MOIS. 
1 voyago en Californie pour le meilleur logiciol CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



HIPPOREBUS Irouvaz repression qui se cache dans la B D de I'hippocampn Decompose en trois syllabos dans les trois premieres cases, le "tout'' a evidomment un rapport avec hnformalique 
(solution en page inlOnr-uF i 
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MEMO 7 



Finis les jeux pour 7 d 77 ans ! Avec I'aide du crayon opti- 
que, mfeme les tout-petits peuvent jouer ! 
On tourne une carle., une autre. Elles sont differentes : 
enregistrons-les dans notre memoire. cela va pouvoir ser- 
vir. 

On tourneune carte.. . Oul'ai-jedejavue ?...]ci ! Bravo ! El- 
les resteront allumees. 

...Tout est allume. Bravo ! C'est le moment de la recom- 
pense. Mieux on aura joue, plus on aura de bonbons car 
un score... on nesait pas toujours lire a 3 ans. (maisles 
grands peuvent essayer de battre leur record affichedans 
le coin en bas a droite). 
Allez concentrons-nous. c'est reparti ! 

Jean-Yves LEFRIEC 




4 CLEAR ,,44 

9 COSUB 3210 

ie cls 

REHIM-tM *(•••••••■•(••••**■ 

13 rem Mfisasc 

13 - I - ■ • •MltiMItt IMI 

20 PPIMT^OMNEZ UK NOHBRE- 

39 INPUT H 

40 FOR 0-1 TO u 
50 00-RNO 

69 next a 

■ 

re rem • • ■•*•• 

7: PEN* PRESENTATION 

• 

t^3D0PEDQREI>0SIL«Ffl* 
74 PL»V C* 

80 SCREEN3.e>e9ATTRSi,i:LOCATC :2, 10 
PIUT--iE.nO 7" 

90 TOR 1-1 TO 51PLOY CS:ro» P*l TO 1. 
EXT R:*EXT I 

166 Din 1 ■-. ■ .- ■ . ■■ 

162 REHI t •••***• 

105 REM* TIPl.CE C'-UHE LISTE "MASflRD* 



■ REM 



119 "• 1 >a|NT<27»RMD*2 ■ 

120 FOR X-2 TO 28 

■INT(28*RH0*1 >i IF RWD<.5 THEN L0 

12, [9,e:t>RlNT- -ELSE LOC 

ATE 12.18.e:PRItlT-nEnO 7* t f>Lft'r-05fllL4DO- 

SLOCflTE RM0t48,RNC>*22.'PRlNT'«" 

135 COLOR CC'I.eiCC-OliJF CC-7 THEN CC 

■ 
140 FOP J»l 

158 IF P<K>-P<J> THEN 130 
:-=0 NEXT JiNEXT K 
[7B K'ltFOR Y"l TO J:F0R X«l TO 7 

■ . 

IM K-IC»] 
290 NEXT KtNEXT 
560 SCREEN 4,4,6 
- ■ 

371 *£«•*•*•••*•••«••••• 

578 REHI CAPTt? PETGUPNEES « 

573 R£HM*« * 

590 L-2 

599 FOR O-l TO 4 

699 FOP C-3 TO 33 STEP 5 

6:9 B0JTF<C,U-(O3,L*3>-»-,4,3 



T07 



629 NEXT C 

630 L=L*5 
640 NEXT ft 

650 COUP-COUP*! 

632 REMMMBI *»« 

654 REM TEST CftPTE 1 • 

656 Pen • ••■••• 

660 1NPUTPEH CLiFOP 1 = 1 TO 150!NEXT I 
670 XsINT'CC»20>/49.':Y«lNTCiL*28>^4e) 
680 P»(X-I>M*3itt"<Y-l>*3+BiIF flOt,Y»H 

THEN CKX,Y>=A<X,Y)-14 
659 B0Xr(P»8,H«9i-<''-p*-4)«S-l,(.n+4>t8-I> / 
4 

706 ON A(XrY) COSUB 1 
1580.1699.1700,1800. 
2300,2400 

702 &E-«...*H.»»...».K.. ..!.».. ...... 

704 PEH» TEST CfiRTE 2 • 

766 ................................ 

710 IHPUTPEN Cl,Lt:F0R !=■! TO !59:NEXT ] 

720 Xl=INT<<C!*2e>'40j:yi=INTc<Ll*28)'40 

>:P*<X1-!)»5*3!H-<Y1-1>»5*2 

739 IF rt'Xl.Yl )> 14 THEN d(XI , Yl >-A<Xl , Yl 



i8 B0XF<P«S,M«S.' 



'R+4>*a-l, 



•8-1 > 



■?50 ON ftCX'lrYl) COSUB 1100,1290,1309,140 
0.1500,1609.1790.1890,1990,2990-2100,229 
0.2309,2499 

769 IF A<X/Y)<>ACXtrYt) THEN FOR 1=1 TO 
1000:NEXT liCOSUe 2500 

770 IF OtX,Y>»ft(XI,Yl ) THEN COSUB 2690 
730 GOTO 650 

1976 REM • ••«»•••♦»•••♦••• 

1080 REM* SOUS-PROCRCHftES DESSIHS • 

1099 PEHM-* **••• *♦ 

1095 PEM CANfiRD 

1100 COLOR 3,4 

::i9 LOCATE P*l.H*l!PRINTCRf<0> 

1120 LOCATE P*1.M*3:PRINTGR*(I) 

1130 PETUPN 

: 190 PEfl --B0B1NE — - 

1260 COLOP 5,4 

1210 LOCATE P.H*!:PPIHTGRf(2)fGR<<4> 

1220 LOCATE R,tt-»3iPRIMTGR«<3>'GS»C5) 

1238 RETURN 

1 = 90 PEn LAHPE — 

1390 COLOP 3.4 

1310 LOCATE P,rl*l:PPlNTCP*(6'SGR*<7> 



!;20 COLI II 

:■■. ICRK9 

RETURN 

. . -r )MH ■■"[ - - - 
1480 COLOR 3,4 
1410 LOCATE P*l,H*!lPRlNTCRi<l»> 

1429 LOCOTE P*1,P!»3:PRINTGR*<11> 

1430 RETURN 

1490 REM ---BATEOO— 

1580 C0L0R5.4 

1519 LOCATE P*2,H*1:PP1NTC»*(12) 

1529 COL0R8.4 

1530 LOCATE P. H*3: PRINTCR*' 1 3 > ; GPI (I 4 I 
1540 RETURN 

1590 REfl ---AVION--- 

1680 COLOR 6.4 

1610 LOCATE P.U'liPPINTGR*' 15>)CP*M- 

1620 LOCATE P,n»3:PPINTCR»< !*■ 

1630 RETURN 

1690 PEN ---HI80U 

1700 COLOR 3,4 

1710 LOCATE P*l,H*l:PRINTGRt(10J 

1"20 LOCATE P*l,n.;:PRlNTGP*< 19' 

1740 RETURN 

1790 REH - — N0UCHE- — 

1300 COLOR 1,4 

1816 LOCATE P*l . K»l : PRlNTGR*' 20> 

1028 COLOR 5,4:L0CATE P*I . M*3:PRINTCP*(2 

n 

1330 RETURN 

1390 REP1 — LAPIN — - 

1900 COLOR 7,4 

1910 LOCATE P*l,K*l:PPINTCR*<22> 

1920 LOCATE P'1,K*3:PPINTGP»<23> 

1930 PE.TURN 

1996 REM —POIRE— 

2000 COLOR 3.4 

2910 LOCATE P»M+IiP«INT6ftf<24>jGR«<25) 

2828 LOCATE P. M-3: PPINTCPJ'26 • : CR*<27> 

2039 RETURN 

2890 REM — POMME— 

2100 COLOR 1,4 

2110 LOCATE P,fl*-IiPRINTCR*<28>;GRf<S9> 

2128 LOCATE P.M. 3: PRINTGPf '.20>! GP*(3l > 

2130 RETURN 

2199 REM — CLEF — 

2208 COLOR 3,4 

2218 LOCATE P,M*2:PPINTGRK32'<;GR«<33> 

2226 PETURN 

2299 REJt — FLEUR— 

2309 COLOR 1,4 

2319 LOCATE P. M* 1 : PR 1NTCRK 36>;GR*<37) 

2329 COLOR 2.4.-L0CATE P, H-3: PRINTGR1 (38 > 

;CRJC39> 

2339 RETURN 

2399 REM — ARSRE — 

2400 COLOR 2,4 

2410 LOCATE P. M*l : PP 1HTGR*<48>;CR*(4I ) 
2428 COLOR 1.4 

2438 LOCATE P. «*3: PR 1NTGRX 42 > iCRI<43> 
2448 PETURN 

2490 REMM*« »•••*»** ***t»* *••••••* 

2492 REM- EFFACE CARTES MFFERENTES • 
2494 ........■..•..■....••••■•••■■•■ 

2588 B0XF<(X-1)»5»3, < Y-l )»5*2>--: <X- 1 >«5* 

6,<Y-I)«5*5>"»*,4,3 

2528 B0XF((XI-1)45*3.(Y1-1)«5*2>-(<X1-1) 

• 5>6.' Y1-1)M»5)*»*,4,S 

2530 RETURN 

2570 PEMM»4.«. • •••* • 

2580 REM* COMPTAGE OES REUSS1TES • 
2505 REM* RECOMPENSE • 

2590 REMM4.4 »»«•••• • 

2609 PLAY'MSIDO" 

2618 CM-CM'l:IF CM< 14 THEN 2749 

2620 2— <INT(COUP/4>-16ML0CATE30,23iPRI 

NTCOUP; 

2630 IF Z'.\ THEN CLSsLOCATE 10.10:PRINI- 

OUH' '":PLAY-01L96DOPOOPDO- 

2649 FOR 1-1 TO Z 

2650 COLOR CC*1.8>CC«CC*l:lF CC-7 THEN C 
C"CC-7 

2668 LOCATE N,23:PP1NTGRI< 34): iLOCATE N. 

£4:PRINTGRI(35>! 

2678 PLAY-05L8C'0D00GR£MIRE* 



J609 N-N-3 

2685 NEXT IlFOR 1-1 TO 25M:»F 

»•• .»•..*! 

2492 RUM ON RE JOVE? • 
• •<»«• tim tttt ■ 

2700 CLS(LO«ATE », 5l I«fPUT*lrtrE * 

IETECATTR8 1,1 

2710 IF £*--OUI* THEN CO'JP-PiCM^^iN.iJL 

OCATE 9,e,0:CLS3GOTQ 118 

2720 IF E«-*NON- 

.a:LOCATE 3,!0:FOR 1-1 TO i»»!Nt 

- ::c;nT'AU PEV01P'-:NEXT CdEHD 
2'30 LOCATE »,5!PPINT-0U1 OW NOtt • 

*:F8R 1-1 TO 186«:mEXT IiGOTQ 27 
00 

2749 RETURN 
*2M tr-,..., 
3202 RENi 
3204 REM****' 
3219 PEFGP«<( 



190 

3229 OEFCR*' 
69 

3230 DEFGRf 
3248 DEFGRI' 
3258 C-EFGRt- 
,249 

3268 C-EFGPI' 
54,0 

3278 DEFCRI 

3280 OEFCPI 

,255 

3290 OEFCP* 

3399 C'EFCR* 

24,0 

3318 C'EFCRt 

3329 DEFCRt 

3330 DEFCR* 
248,224 
3348 C'EFCR* 
3350 DEFCR* 
3360 PEFCR* 
3370 DEFGRI 
3380 DEFCR* 
3390 DEFCR* 
102,255 
3490 DEFCR* 
60,192 
3410 DEFCR* 
3420 DEFCR* 



DCSSIN5 • 

....... ■ . ■ . . . . 

l>-255.223, 199. 127.62.48.48, 

2>-6,I27,63.31,15.; 
3>-15.15,l5.15.3i.* 

4 ■■0-254.25i.24?. 246. 24(1.249 

<5>-240, 240,240. 249, 24S.252.J 



10 <-9. 12. 12.9.129.88,94.24 
ll>-8. 24. 69, 36. 102. 194. 131, 9 
12J-128, 192.224.2^ . 

13)-0,63,31,0,16.4i,2,0 
14 >-9, 232. 248, 9. 16,40.123.0 
(15)-9,9,0.9.64.££J. 

61-7, 15. 28. 4S. 96. 9. 0.9 

7)-9.6.12.28.36.i:. . 

8'=129. 126.255. l^r. : 

<19)-255.255,255,253.255.139, 



3430 DEFCR*(22>-118.108.56.60.?4. 



3440 DEFGRX23) 

54,63 

3430 D£FCR*t24-. 

3460 DEFCP*i25> 

224 

3470 PEFGR*<26> 

34S8 DEFGR*<27> 

240,224 

3490 DEFCRK28! 

3509 DEFCPK29 

35 10 [.ErCR*<39: 



■62.127.127,125,124,248,2 



1. . . 

3520 DEFGRK31: 

252,120 

3530 DEFGR*i32 

3540 DEFCRK33 

3550 DEFCR*t34> 

3560 DEFGR*c35- 

3570 DEFCRI.36' 

3580 DEFCR*(37> 

20 

3390 DEFGR*<38> 

3660 DEFCRt'39' 

3610 DEFCR**40> 

5 

3620 DEFGRIv41> 

248,224 

3630 DEFGRK421 

3640 DEFGR*<43) 

3650 RETURN 



-0,0,1,1.61. 127,127-233 

.■..-..'.£40. 252. 254, =53 
-253.255,255. 12~. II 

-235. 253. 255, 254, 254, 252, 

-0.8.0.255.255, 168,136.0 

.. 4^,249.9,13,0 
-62,28,8.28.62.6,. 
-62, 62,2t. ;■-.-- :■<■■<■ 
-0,0.17,27.31,15,7.3 
-,<..-. 1.,, : ■.'.-.. ■■■11.. .'.■■<. : ■. . : 

-1.1,1. 121.57.29.7. ; 

I26,232,112,M 

-3.31,63,127,255- 12 ■ 

■ 1 92, 240, 254 . 255 . 254 . 252. 
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TARIFS AU 16/3/84 
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njccmmande pour lei logkich ; + 30 F. 
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■ omplexn 
niYso.A;i * 

• induction « condenuuun 

• produil vetiiKwl 
PHVSOJE2 

• circum osotand 
EDI -LOGO 
Le fameux lanoage LOGO en 

CARTE rOTTTE -PAROLE 

Unevota ' lam-el » 
en rfsncsii 

VI-FI NATMAN 

• flR(-.ir»„iMlriiFflr-v-iC.| 

• C.ilM.'.irriM' 

• |i-.| 1 J,.,rl>".[>."(r[m.«'"'l 

• 1 'onjwHKeui igesOofi de r* in.-r.) 

• I e red* teul Hi-iilcrnrnl de irxttf 

• Leo ■'" ■ b ii 1 
(dlcnonnWY du KMUmeni de iriir| 

EDI LOGO 

Lelamnn langageK h rO,enl 

dam iivhm.iii odg rtal ■ 
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MEREX 



Exercez votre memoire eidetique (memoire visuelle) et 
vos reflexes grace a MEREX, Si vous reussissez a depas- 
ser !e niveau 6. alors chapeau ! 

Philippe TELOUK 

Mode d'emploi : 

O-Faire SIZE 011 

1 - Faire xcq MEREX, apparait a laffichage. 

2 - Mettre un chiffre compris entre et 1 ceux-ci etant exclus et (aire 

R/S 

3 - Apparait c I'affiehage : "niveau de difficulte". 

4 - Introduire un des chiffres : 1, 2, 3, 4, 5, 6. 7. 8. correspondant a une 

difficulte croissante et faire R/S 



5 - Au Top sonore un chitfre s'attiche pendant quelques di*ames de 

secondes et 1e but est de le voir et de le retenir 

6 - VousdevezreintroduirelechiffrequevousavezretenuetfaireR/S 

7 - Sivousavezbienretenu3bipsaigussefontentendreetl'affichaqe 

donne" VRAI .". 
- Si vous nave? pas bien retenu 3 bips graves se fonl entendre et 

I'affiehage donne " FAUX " C'etail : "X". 
Le X etant le chtffre qui! fallait retenir Cette sequence terminee on 
reprend au § 5 pour un autre chiffre. 

Au bout de 10 fois la machine affiche le nombre de chiffres que 
vous avez bien retenu puis elle demande si vous voulez rejouer pour 
lOauIres chiffres ; 

- Si OUI : introduire OUI directemenl car la machine est deja en mode 
ALPHA. 

- Si NON introduire NON aussi directemenl, 

II est possible de faire varier le temps pendant lequel le chiffre est affi- 
che en modifiant le nombre de x<>y des le sous-programme "01" mais 
veillez toujours a ce que ce nombre soil PAIR sinon le programme est 
fausse. 

J'ai prefere ce mode a une simple pause car celle-ci est trop longue et 
que Ton ne peut pas faire varier sa duree. 
Vous pouvez sortir du jeu avec xeq07. 




13% 21.81 


16 m 


32 CLD 


6KL6L -Km- 


17 STO 82 


33 STOP 


K CLRG 


IS ENTEPf 


34 STO 86 


93 STOP 


19 INT 


35 RCL 84 


e< sto ee 


28 - 


36 STO Y 


85 FIX 8 


21 STO 88 


37 RCL 86 


86 CF 29 


22 RCL 85 


38 STO X 


9? XEO 86 


23 » 


39 X=V? 


88»LBL 98 


24 1 


49 XEO 82 


m e 


25 ♦ 


41 XEQ 93 


18 STO 8! 


26 INT 


42«LBL 92 


11 PI 


27 STO 84 


43 CLfl 


12 EHTEPt 


28 VIED 84 


44 -(-,.. .VRBI 


13 RCL 98 


29 TONE 9 


45 dVIEU 


14 » 


38 XE8 8! 


46 TONE 9 


15 8 


31 CLX 


47 TONE 9 



48 TONE 5 

49 1 

58 STt 97 

51 STt 88 

52 XEO 84 
53»LBL 93 

54 TONE : 

55 TONE 1 

56 TONE 1 

57 CLfl 

58 "I- FftUX C ETO- 

59 AVIEH 
69 -HT :■ 

61 flRCL 84 

62 flVIEH 

63 1 



64 STt 98 
6S«LBL 84 

66 16 

67 STO 1 

68 RCL 98 

69 X=Y? 
78 XEQ 85 
71 XEQ 88 
72«LBL 85 

73 CLfl 

74 -F VOUS BVE2 GOG 

75 BVIEN 

76 "FNE :• 

77 DPCL 87 

78 -F FOIS SUR 18" 

79 flVIEN 



88 -F VOULEZ VOUS r 

81 QVIEU 

82 -FEJOUER V 

83 DON 

84 TONE 9 

85 flVIEH 

86 STOP 

87 SSTO X 

88 -OUI- 

89 flSTO V 
98 flRCL X 

91 X=Y? 

92 XEO 86 

93 XEO 97 
94»LBL 86 
95 CLfl 



96 CLX 

97 CLD 

98 TONE 9 

99 flOFF 

189 "F NIVEAU B! 

191 ftVIEB 

192 -PFICULTE ' 

193 flVIEN 

194 STOP 

195 ENTER! 

196 8 

197 t 

198 STO 19 

199 XEO IND 18 
118«LBL 98 

111 12 



ytpAA 



112 STO 95 

113 XEO 17 
114M.BI 89 

115 123 

116 STO 95 

117 XEO 17 
118«L8L 18 
119 1234 
128 STO 85 
121 XEO 17 
122«LBL 11 

123 12345 

124 STO 85 

125 XEO 17 
126«LBL 12 

127 123456 

128 STO 95 

129 XEO 17 
139>LBL 13 

131 1234567 

132 STO 95 

133 XEO 17 
134»LBL 14 

135 12345678 

136 STO 95 

137 XEO 17 
138«LBL 15 
139 123456789 
149 STO 95 
141 XEO 17 



i«;'<L5. :•:. 

143 123458789? 

144 STO 85 
145«LBl 17 

146 9 

147 STO 87 

148 STO 88 

149 XEO 88 
158HBI 91 

151 XOY 

152 XOY 

153 XOY 

154 XOY 

155 XOY 

156 XOY 

157 XOY 

158 XOY 

159 XOY 
168 XOY 

161 XOY 

162 XOY 

163 XOY 

164 XOY 

165 XOY 

166 XOY 

167 XOY 

168 XOY 

169 XOY 
178 XOY 
171 XOY 



172 XOY 

173 XOY 

174 XOY 

175 XOY 

176 XOY 

177 XOY 

178 XOY 

179 XOY 
188 XOY 
181 XOY 

183 XOY 

184 XOY 

185 XOY 

186 XOY 

187 XOY 

188 XOY 

189 XOY 
198 RTN 
19UL81 97 

192 FIX 4 

193 SF 29 

194 OOFF 

195 CLX 

196 CLTj 

197 CLfl 

198 CLRG 

199 STOP 
298 .END. 

■ 



GLUNCH 



GLUNCH est une version BASIC ZX-81 d'un celebre jeu 
d'arcades : une chenille doit parcourir un labyrinthe t ruffe 
de pillules nutritives qui la font s'agrandirde plus en plus... 
La difficulte reside dans le fait qu'ilfaut reussiraavalertou- 
tes les pillules sans se manger soi-meme... 
Achaque nouveau tableau, la quantite de nourriture aug- 
mente et si vous parvenez sans encombres au-dela de la 
quatrieme etape, au cinquieme tableau le labyrinthe de- 
viendra invisible... 
Bon appetit !!! 

Benoft RONDEAU 



MODE D'EMPLOI : 

GLUNCH est un programme ecrit en BASIC pourleZX-31 mais en raison 

de I'interet du jeu (anticipation sur le trajet a prendre a plus ou moins 

long terme) la vitesse reste relativement bonne. Le sous-programme 

de BONUS est la pour ceux qui nechangeraient pas de direction assez 

rapidement. 

- Apres avoir entre le programme, faites une sauvegarde sur bande 
magnetique par RUN 9500 et le programme se lancera automati- 
quement. 

Tous les caracteres grises sont obtenus par : GRAPH 'H'. 

- Les quatres touches de directions sont : "K", "L". "O". V. 

- Enfindepartie.classeounon.ilfautappuyersurunetouchepourune 
nouvelle tentative. 

- Chaque pillule avalee rapportecinq points. En fin departiele bonus 
restant est ajouteau total des points. Lors d'une etape avec labyrinthe 
invisible, le bonus de depart est relativement consequent. 



MODIFICATIONS POSSIBLES : 

- Lesquatre touches de directions peuvent etremodifieesa votre con- 
venance aux lignes 600, 610, 620, 630. 

- Si la chenille vous semble grandir trop ou pas assez vite, les lignes a 



changer sont 20 et 40. 

- Le BONUS diminue trop rapidement ? : ligne 5040 

- Si vous voulez varier la forme des pillules, les lignes correspondantes 
sont 7990 et 8430 et concerned la variable OS. 

- Enfin si la forme de la chenille ne vous plait pas, ledessinde la tete est 
contenu dans la variable CS, (ligne 8060) ledessindu corps est contenu 
dans la variable BS (ligne 8070). 

-Pourceux qui ont une imprimanteet qui peuvent couperle son du ma- 
gneto lors d'un chargement dans I'ordinateur. les lignes 9520 a 9550 
sont la pour les prevenir "auditivement" (bruit de Timpnmante ZX...) 
que le chargement a bien reussi sans avoir eu a subir la melodiedu pro- 
gramme via le magneto eta jeterun coup d'ceil impatient a la TV toutes 
les cinq secondes en attendant la (in du chargement. Ces lignes peu- 
vent bien sur etre supprimees pour qui n'en a pas I'ulilite 

- Le programme fonctionnera tout aussi bien sans la ligne 8180 qui est 
tout S (ait superfetatoire... 



14.0 

ise 
130 
21B 
160 
330 
178 
180 

ise 
200 

310 
350 
330 
24-0 
330 
397 

soe 

099 
600 
1110 

ese 

630 
64-0 
897 
B9B 

3 9<i 
900 



PEM 

REM 

GOTO 6000 

REH 

BEM : 

REM 

IF L>0 THEN GOTO 4.0 

LET L»3 

GOTO 50 

LET L-L+S 

LET S-S + 3 

IF 3»C#3 THEN GOTO 7000 

LET PIS (S,B) =■'• " 

RETURN 

REH 

REM i 

REM 

LET L-L-l 

IF L>0 THEN GOTO 3*0 

PRINT RT (11.81; " " 

LET R* 1(11,81) •'■ 

IF fl«Cfll*l,Bl) -B» THEN GOTO 

IF R»(R1-1,B1) -B» THEN GOTO 

IF flttfll,Bl+l)-B» THEN OOTO 

LET Bl'81-1 

GOTO 3*0 

LET R1-R1*1 

OOTO 2*0 

LET (ll.Rl-I 

OOTO 340 

LET Bl-Bl+1 

LET KC-XNKEVft 

IF K»-"" THEN OOTO LI 

REM ™™^ 

REM BlBlHBBHBMMdi 

IF K«k-L" THEN GOTO 900 

IF K»-"K" THEN OOTO 1900 

IF Kt«"0" TMEN GOTO 2900 

IF K»-"." TMEN OOTO 3900 
OOTO LI 

REM 

REM lli l il 

PCM 

LET LI-1O0© 

LET B-B-tl 

IF R«(R,B) ="■'■ TMEN OOTO SO 



1330 PRINT RT »,0 
1030 PBir~ 
10*0 IF 



i; b» 



3,B) ■ 



THEN COSUB 1 



1070 OOTO 100 

1397 REM 

1BOB REH fBKI 

1B99 REM 

1900 LET LI-SBB 

2000 LET B-B-l 

3010 IE R»<R,B> 

3030 PRINT RT R,0+1,B» 

H3S i"«< gVili C fHCN ooto e.e 



THEN GOTO BO 



THEN GOSUB 1 



3070 OOTO 100 

2697 REM 

2B98 PEM DMi 

3899 REM 

2900 LET LI-3000 

3000 LET R-R-l 

3010 IF R» Ifl.BI ="l 

00 

1030 PRINT RT R*1,B;B« 

3030 PRINT RT R,B;C* 

30*0 IF H»(fl,B).0* fMI 



THEM OOTO SO 



en ooto aav 



3060 IF RS (R,B> 

3070 GOTO 100 

3897 REM 

3393 REM CE» 

3899 REM 

3900 LET L-I=*B00 
■L000 LET P-R + l 
*010 IF R* (R,B> -" 



Bl 'B» 



EN S05UB 1 



THEN OOTO BO 



*039 PRINT RT R-1,B;B* 

4.030 PRINT RT R,C;CJ 

4.04.0 IF R»(A,B)=B» THEN GOTO 60O 



*070 GOTO 100 

*997 REH 

*900 REM I 

*999 PEM 

5000 IF LI-1000 THEN LET B=B- 

3010 IF LI-20O0 TMEN LET B^Br 

5*30 IF LI=3000 THEN LET R=Rt 

5030 IF LI»*000 THEN LET R=R- 

30*0 LET BO-BO-10 

50B0 PRINT RT 21,33; BO;" " 

3060 IF BO-0 THEN GOTO 6000 

3070 LET K*-INKEY» 

S0B0 IF Ki»"" TMEN GOTO 30*0 

3090 OOTO 600 

3997 REM 

539Q REM SRpjpjvmaBsvn 

3999 REM 

5008 FOR F=l TO S 

5010 PRINT RT R,B;'V;RT R,B; 

S020 NEXT F 

0030 PRINT RT R,B, "D" 

60*0 LET 3C-aC*S*BO 

60S0 IF 3-0 RND K«l TMEN LIZT 



6060 PRINT RT 21,7;SO 



607O IF SOUflL 

G100 

6060 PRUSE *E4 

6090 OOTO 8210 

G097 REM 

13099 REH 

■5100 LET r-0 

R110 LET F-F+l 

4130 IF SOUOL M» IF) 

1*0 

6130 GOTO 6110 

61*0 TOR O»10 TO F STEP 

6130 LET U% (G*l) tN« IG + 1J 

6160 LET M*CO*H -M» (G + l) 

6170 NEXT O 



M*(10) THEN GOTO 



TMEN GOTO O 



BRRUO 
LR3SE DRN3 
EILLEUR3" , 



■^300 CLS 
6310 PBIIf 
UOUS ETES 

auepu DES 

CORES. . ." 

6330 PRINT RT ID, 3; " 

RE PRENOM ?",,, TRB B 

3 MRXI. 1 " 

6230 PRINT AT 10.11; 

83*0 PRINT RT 10,11;Z* 

— IF INI 

._ INPUT 

6370 CL3 

■aaa " 



8TR* »C 

'lie Tf^ 



i PRINT RT 0,3; "JOUEUR3"; TAB 
jMBjMI", TR8 23; "SCOPES 1, 



655o^BRT r ?T TO 10 

6310 PRINT RT F *2 , 0; "I " , TRD 16;" 

1 -;TRB 31; " J"; RT (F»»l +1 ,»; "I ";T 

RB 10;"f";TRB 31; "1" 

6330 PRINT RT (F »2 >♦ I , 3 ; N« (F> ; TR 



6330 NEXT F 
63*0 PRUSE *E* 
6330 OOTO 8310 
6997 REH 
599B REH 1 

6999 REM 

7000 LET 3C"3C+3*B0 
7030 NEXT C 

7030 ooto esse 

7997 REH 

799B REM WW 

7999 REM 




6030 DIM 

8030 LET 

O0*0 LET 

O0B0 LET 

O060 FOR 

O070 LET 



m 



F-l TO 10 



Fl - 



ease next 

8117 REM 

6118 REM 

E119 REM 

3120 GOSUB 9210 

0130 FOR F=l TO 

81*0 FOR 0-39 TO 

6 130 PRINT RT ~ 



_ STEP -1 
P, l; T» (P,G TO ) 
160 NEXT O 
170 NEXT r 
6160 PRINT »T 17, 1*; "PRR";RT 39, 
-• 19B 



,ROMDERU";RT ai,ll;"*( 



TO 73 



8190 FOR F 

8200 NEXT 

6310 CLS 

3230 LET 3C»0 

8330 LET K-0 

82*0 FOR C-1B TO 30 STEP B 

8360 LET K-K*l 

S260 LET 3-0 

3370 LET L-0 

82B0 LET BO=»C f IB 

5390 LET i;i = "WMMW»DLEHU: 

TRJ K 

6300 DIM R« (20,23) 

S307 REM ____^ _^__ 

8300 REM BSil^i^MMmi^l^H 

8309 REM 



THEN GOTO 



RTTE 

ETTE FOIS-CI.LE L 

INUI3IO 



8330 CLS 

63*0 PRINT RT 10 
NTION, ..",.,•• 
RBYRINTHE EST 

- " VI 

... SONUS. - . 
33S0 TOR F-l TO 73 
3360 NEXT F 
8370 CLS 
8'JOB LET OO-*0O*«(INT IRND#13) * 



B390 FOR F-l TO 30 ___ _^^^_ 

'l.tlO riEXT P 

8*30 OOTO B*60 

n-130 FOR F-l TO 30 

B**0 PRINT RT P,l;R«CF) 

P*S0 NEXT P 

6*60 PRINT RT 31 , 1 ; " SCORE : " ; SC 

"; RT 31 , 17; 'BONUS. ' ; BO 

6*70 FOR F-2 TO 3 

4*ae let niia,f.«"P» 

6*90 PRINT RT 2,P;B» 

esoB NexT r 

<5B10 LET R»(2,6)-Cf 
^330 PRINT RT 2,6; Cf 

— P-17 TO 1 ST 



6360 PAST 

C390 FOR P»l TO C 

6(500 LET X"INT tRND«3C) 

6610 LET Y-INT rRND»231 

BB20 IF fl« (X ,Y" 

600 

9630 LET R« tX, 

66*0 PR.XKT RT 



TMEN GOTO 



Qt'.IWT ',P*«>«3I 



8OS0 NEXT P 

0O6O LET R=3 

86 70 LET On© 

8680 LET Rl-3 

8490 LET Bl-2 

6700 3LOU 

#710 LET LI-10O0 

"■KEV» 



TMCN OOTO B730 




i let r* o) -■'■ ibm wmmmm * m 
' , -£ T »"*'* ) ■"■ ■ ■ 

l BJ '-| T B R * '5' »**■ ■ » ■ ■ ■ m 

i let r*(oj =■■■ m m m wm wm 




mZm »' T — ^^ 

CaJ |« («)-"■ ■ ■ 

k E I g*' ie » •"■ ■ ■ •■ ■ l 

LET R*I17) ."■ 



8* 

R»(1B) -"■ | 
R» (19) -"■ 
3300LETR^t30) -"«■ 

9307 REM 

O20B HEM 
Q30O 9EH 

9210 Let ■ 

9220 LET ; 
9230 LE 

nh urr j 

©afeTJETui 

9300 CLCilll 



MENT RZUSSI" 

9330 L PR INT 

83*0 l-PRINT 

BBS0 LPRIHT 

9560 RUN 



i r 
i i 

■ i 
—i t. 



CARTE DU MONDE 



Une carte du monde avez vous dit ? Et comment faites 
vous ? 

Eh bien c'est tres stmple.Vous prenez une carte du monde 
format 120x 80. vous la coupez en 46.800 mo rceaux (156 
lignes de 300 colonnes) et vous mettez le tout en datas. 
Ensuite il ne vous restera plus qu'a rentrer 262 pays et au- 
tres departements (accompagnes de leurs capitales, su- 
perficies et divers codes permettant de localiser le tout) 
avant de plonger dans les affres du traitement de don- 
nees. 

Mais apres etre passe (e) successivement par I'Enfer, les 
comprimesd'aspirineet les micro-coupu res vous pourrez 
enfin contemplerd'un ceil beat (si ! si !) et comprendre le 
debut du quart du dixieme de la base des relations inter- 
nationales qu'on appelle la geographie. 
PS. : il doit surement etre possible d'ameliorer la qualite et 
la definition de la carte avec la haute resolution et des dis- 
kettes. Avis aux amateurs ! 



Adaptability sur d'autres materiels. 

II faut savoir que lecran du Sharp possede 80 x 50 points en semi-gra- 
phisme et 25 lignes de 40 colonnes en utilisation normale La carte est 
affichee en semi graphisme 

De plus I'affichage sur i'ecran peut se faire par POKES, lesadressescor- 
respondantes allant de 53248 ten haul a gauche) a 54247 (en bas a 
droite). 

La carte du monde est slockee dans les datas par ligne. Sur chaque li- 
gnes on repere le nombre de fois ou la terre emergee apparait puis on 
code les diverses coordonnees d'entree et de sortie par rapport au re- 
fereniiel honzontal qui va de a 300. Cela donne : 

3650 DATA.3J02-133, 198-202. 225-245 



auscisse du debut de 1'emer g.ence 

abcisse de la fin de Emer g ence 
nb de fois ou la terre emerge sur cette ligne 



Dernier points. Datas pour les pays : 

5040 DATA AFGHANISTAN. OKaboul. 208-63. 650000. 180-60 

nom du paysx-, — -Ca p itale,/ ^"'""""^ sup erficie 




295,8,910-- 

139,1' 
4218 DATA 162-16?, 163-251, 288-236, 8,815- 
010,039-974,08 

■ a, 168-263,289-28 >. I 81 I 

i-es 
i i - a, 107-203, 298-295, ie,aia 

8(4,0 - . -■■ '-■ -1*3, 147-149 

264, 200-207,270-2; 

.•.,.,■.■•-■'.' 

!67, 269-20 

B4i-e?9,es4-ie2 

16-158, t 54-26?. 259-25 

. m „.,. ,..-. .-.--,• ;■•-_'. /?. 

:-...-. .--,?, 259-26 
B2- 92 
263,291-28 
ys 7 , 145-145 
I23B .--. i934 

17-8 B«- 18 ' ■'■'-■■' 

■ '■ 25=!- 755 : 5 , 8« -398, 093-095, 099- 
182. 145-257, 263-253. 288-200,4,844-893 

iTfl 023- : 33, 1 47-287, 203-259,5, 044- 

094, 182- Z2. i 49-255,253-278, 277-277 

fl 5, 845-837. 143-175, 178-181. T83- 
-755, 253-278,3.845-893,095-896 
« ■ ■', 143-108, 163-174, 178-179,183-18 



196-265,274-274 

FA 148-152. 

8,182-183,194-254 

«3S8 DATA 142-142 

■ .-3,183-183 

*368 CftT A 045-830 

2, 134-198, 194-259 

.' " m 845-88B 

. E 

4388 DATA 278-278 

. 102-104, 157- 

■ 

-885. '75-125, 142- 

■ - ■•'- 153-165 

239,253-257 
■ ■■■■-- 142-149 
89,173-138 
1428 DATf* 

■ ■ 

■ ■■ ■■...■ 
'43,153-155. 

■'•-■ 195-252 

. . tS3, iei-n 

«458 DATA 181-251 
II 

■ ■ . , 



9,015-891 ,394-095 



55-15' 



164-173, 178-19 



269-269,9,045-889 

147-152,155-155, 160-15 
133-264,258-271 ,8 
142-157, 158-162, 155-17 
251-263,267-278,9 
142-151. 1S8-1S8, 161-15 
195-259,257-257 

107, : 74-124, 142 
71,174-174, 178-179 
196-258, 758-258, I2,e45 
IS. 153-153,158-158 



157-1 



178 I 



172-19 



257-268.1 I ,815-295 
151-151 , 158-159, 164-16 
135-219,237-753 
287-208,8, 043-083. 142- 

: . 195-243 
757-758.3.815-095, 144- 
62, 168-178, 173-131 

167,8,840- 

. 1,171-174, 175-177 

, « , ■-,-257,7.018- 
.,-. 8-243 
252-257, 5, 019-884. 144- 
'.. 108 -713,257-257,261-265 
«4?8 data 5,858-893,142-157,108-25 
251,264-264,6,851-882.141-161, 167-171 
«498 Opv. . 1,203-203,3,952- 

.759-258 
■ 8, 052-853,855-873. 877-888, 142- 
104,167-23: 239-259,1 2 853,050-078 

■ A 073-873, 080-e81. 141-199, 

. ■ . ■ 389-0 

10, 133-252.6,057-5' 1,8 
869,88! -981,138-177,188-131, 
1528 DATA 8,054-054,050-808,091-081,137- 

.,..-■■ 93, 138-258 

• ■.■■■■■-■■ 78,182- 
■. ■ zee 15,287-249,: 

.-;6. 860-857, 136-173. 193- 

i; IB Z4! ■ 23 ,7,830-950 
4350 DATA 861-067, 888-89"i. 
9. 209-247.T 

'.,378-873, 883-881, 135-18 

■.. 209-224 - ■ 1 ■■■■"■' 

.■ 1-870, ■■■ 880, 130 
.,- . . 
1388 DA 1,813-1 - ■■■ ■ ■■ ■ -■■ ■■' ■ ' 

1-130,211 -771,777-239 

2 892, i »- 
■ ■ 
A 18,810-1 ■■ .■-■■■■ 
2 10,8! ■-■■ ,130 ■ ■ ■..■■■ 

:-.■■■ . ...-.■■ ■■■ .-■ ■ 

.:,■ ,897-097,13 

....... :.. ..... . ■..■ 

... . . ... 

1038 0, ; . 

.-.■,■. ■ ■ 

■■.,.. . .-■ 

233,231 
.-,...■ 
. . ■ ■ ■ ■ ■ 

1008 0«T« .,.-... 
.■....■ 

. ■ . ..-..■ ■ .9,973 

■■■■■.■ 

■■ . . . ■ ■ ■ ■ ■ 

. . ■ ■ . 

...... . . . .■ . 
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index Opoint eteint ,-Coordonnees de la 
1 p oint ailume jcap itale 




1738 0AT« 243-248,4,884-185. I S3- '■>:>■ :■':'*- 
234, 241 -249, ", 834-186, 153-192,233-235 

.,■..■ data ?41-Z4B. 5,889-187, 158-192,233- 
236.240-247.243-252,9,873-073.883-107 
a?58 Dfltfl 199-111,158-181 ,233-235,211-24 
7,249-252,253-262,755-253,7.882-1 12 
1780 DATA 159-181,234-236.242-247.243-25 

»,2S9- 26 1, 264-265. 6, 832- l 14, 152-181 

1778 DfiTft 235-23?.2a9-249,252-252,268-27 

• ,4,882-1 16, tSB-13! .235-237.253-273 
4783 DATA 1,882- > IB, 16! -131 . 236-237. 265 

-273,5,882-1 19, 161-182,239-242 

1738 OATft 266-278,272-274.8.093-123,168- 

182,242-246.248-250,252-253,766-256 

1808 DATA 263-259,271-274.1,083-123,161- 

192,255-255,275-275,4,884-1 19, 152-193 
4313 DATA 251-251,253-263,4,835-118.162- 
183,268-264,269-269,6,085-1 16, 162-183 
1828 DATA 198-191.255-256,259-253.259-27 
0,6,388-117,161-183,183-191,256-257 
1933 GATA 253-263,769-271,5,830-117,160- 
1 92, 1 88- I 9 1 , 255-264 , 268-27 1.5, 333- 1 1 7 
1848 DATA 160-181,187-191.253-255,268-27 
1,4,991-1 16, 168-183, 186-138,253-272 
4830 PATA 4,891-116, 168-179.187-133,252- 
772.4.831-115.161-177.187-190,249-274 
4360 UATA 4.091-115, IQ2-I78. 187-190, 246- 
271, 4, 091 -114, 162-178, 196-189,245-275 
1078 DATA 4,093-1 II, I 62- I 73, 1 86- 189, 245- 
276,4,393-183. 162-177, 186-188,245-277 
4838 DATA 4,398-188,162-176,186-187,244- 
277.3,090-188, 162-176,245-278,3 
1398 DATA 833-189,162-176,245-278,3,089- 
189, 163-175,246-278,3,889-108, 163-175 
4388 DATA 246-279,3.883-108,165-174,245- 
278,4,883-187,165-173,247-256.253-27? 
1918 Data 5,033-105, 155-172. 247-251,261- 

276,6,898-185,164-108,246-253 
1928 DATA 263-263, 266-276. 295-295, 4. 088- 
184,248-248,266-275, 296-230. 3, B88- 1 81 
1338 DATA 207- 275, 236-237, 3, 888- I8I , 26?- 
275, 297- 237, 4, 888- I01.270-271- 273-273 
1340 DATA 236-239,2,888-895,296-299,2,88 
7-896, 297-297, 3, 867-894, 27 1-273 
4958 DATA 234-234, 3,887-095, 272- 273, 294- 

. ;--7-83S, 777-272.233-234.2 
4900 DATA 087-093, 291-293,2, 087-B3-1 , 233- 

12, 2,887-892 
4978 PATA 291-291,1.087-093.1,837-893.1. 
087-833,1 ,087-892,1 .B87-89I , 1 ,887-891 
4988 DATA 1, 887-091 , 1 ,087-091 , 1 .080-092. 
i ,889-033,1,889-895, 1 ,FIK 
1330 »En 

5880 REn D8E0£0EBf.aE0E8e0eaE:ee0e0£8E8E8e 
0E0E8E8E0C0 81 81 e 

5313 «£n fO OAlAi four •( ttait =D 
5020 PEn CDE0E8EBE8EGe0E8E8£0Ee- ■■■■■ 
.■■■■ l't:BEB£0£8EBE8tlO 

■ ■■ ■ ■ 

5849 PATAAf r."AN IS Tam. HKubou 1,288-68,0500 
08,180 OOiAFRIOuC DU SUO.ejohar.rn. ■ 
5058 DATA l?2- 121, l 179679, 150-1 18,1 
E.8U;rvstio«k, 163-1 19.824 763, 15e-108 
5860 DATA ALBAMIE.lTiraoa, 107-02,29748,1 
... - /, 7331711 
-EA.08G"", 136-58,74838? 
... .■...■■■ . 10 

:. 140-30, ANOOGUE.OAnOO-" 
1,41 . 4fl , ■,■'■. ■-. ■ ■ - ■ 

■ .- .- . 2 »,9BAeiE 

■ . it . n i8 ■. . . ■■ ■ 

I ■■ Orrt 

. ■.■ [33, 19027,88 

. . ■■ ■ ■ -y«,?48-9 

. . .... 63-54, ■ . -■' ■■■ 

,..-.. ... , ■ . . *95,0fl 

... i, l rtai ■■ .391 

... 2 .■■ 1, 14399 

■ 

... i [•(. 

.-. ■■■ I, ■ ■-■.'■:•-.■ « -■ •- 

........ ■..■■■ 

.....-■ 

. ..... .... .... 

...... . .■ a 01 ■ 

■ 

:,- lRar.,oon,738-B6, 688049. 203-72. 
.',1038381.09-86 
NW«A,eO«b*i'OA>i,170 |21|M 

9377, 148-96. «»(.',: I ,08'-.' 

...-..■... .- •»» :,2 

. .. 00,798-88 

..... ■ .■ ■ a 11881! 

■ ■... . ■ .....' 

. ■ .. ..■.■- . . ■ ■ ii 

- . ■ ■.-, 19,09-00, 

.... : ■ ■ - ■' 

. ■ . 

....■■■ 

■ ' ■ 
...... ... M ■' ■■ ■- 

. . . . ■ 

....... .... ■ ■ ■■■ 

,78-11' 

. 809, ■■ 

■■:..■ ■ ,252-79. ■■ 



5288 DATA 223-54 .CUTPUE, I Ni co* it , 176-63, 
9251 . 148-48. COLOnSIE,08o3Ota, 97-97 
5290 DATA 1 138914, 53-72, CCnORES, irtoi-oni , 
187-111 ,1862, J4B-92.CD>'30,e3^QiiC"I I l« 
5383 DATA I 62-185, 342BB8, 1 39-83, COtEE DU 

NORD, lPyo"3aqjT9, 256-64, 121914,238-48 
5310 DATA COREE DU SUD, I S»ou1 .237-66,384 
31,238-48 

5323 DATA COSTA SICA.ISo" Jot* ,83-92,589 
88, 48-68, COTE O'lUQIRE, iA d ;Sjop, 145-95 
5333 DATA 322483, I 22-?2, CUBA, lLa Hdvon*. 
88-80,1 14524, 48-64, DAN£rtA?< 
5343 DATA ICoo,wa 5 m, 168-44,43383, 128-1 
2,FER0C,!TI>orotr><wi, 143-31,1399, 129-1 
5358 OATA GROEMLANC, 1 GoSinab, 106-28, 21 75 
588,90-1,DJI8OUIi, 1Djit»i>t ;, 1 86-98 
5369 DATA 23880, 1 60-68, St -OOHISGUE ,' Sjrt 
o OomlMo, 91-84 

5378 DATA48408,68-54,DOniNlOL£,Hto»»au,5 
1-88, 751, 68-66, E6TPTE.BU* Co lr«, 176-74 
5388 DATA 1BB1 449, 1 40-58, EDICTS AftWES 
U.,lAbau Dhabi, 136-79,83688. 170-68 
5398 DATA EOUATEUR, 80u;to, 84-102, 2678*4, 
?0-30,ESPA^e,8nQar :o, 146-62,504750 
5488 DATA 133-1B, ET ATS-DMIS.Wa4^ : njion. 6 
5-65,9363353,' , ALABATA. BPOfMsc-*- -r 
54 18 DATA 76-78,133667 

5428 DATA 48-10, ALASKA, Uurunu, 36-41,151 
8700, i-l,At?ieO.NA,ePho»o.'>',5e-?l ,735914 
5430 DATA48-48, ARKANSAS, BLUt I* Rock, 71- 
59, 137359, 48-iB, CALIFC«Sie,8SacrQ»»nto 
5448 DATA 47-66, 411815. 40-48, COt-CSAOO. 90 
• nv*,-,61 -66, 778808, 10-18 
5453 DATA DISTR. Of COU " 
5408 OATA iUatr>:njtor,,8" J -6S.I?9,*8-40,CO 

ir.iHartrord,M-0i. '7373,48-40 

5470 DATA DELAWARE, lOov^f. 86-61. M.-H.i,' 
i0,fLORIOE.0TQi lanoi ...,73-73. 151078 
5480 DATA i0-4B,&EORGIE,0At lanto, 79-09.1 
52588, 40-43, «AWA[ I, lAono'i. ■■ 
5439 DATA 15731. 14,52-88, 

210413.48-40, !LUNOiS.eSpr-;r<»>;» Id 
5503 OA'A 71-65.116176,48-40, INDIANA, 8Io 
I . 78-6a. 33934, 48- 48. IOWA 

•91,48-40 

..'-.-■p*Ki, 6B-66.7I3-" ■ 

i. '0-1,73-00,1040 
!3,*8 4O.U0 HSIflM ,9B«teA *<--!• . 77-72 

....■■.■..■■,..■■., II 
58,66827,; -i.nnpoi i* 

-.. ... . J h 10 10 -' ■ ■■ 

;.' to, -,..-.;gan 

... .■ .■ |, ;.' (0,f1l 

■ 2 ■ ■ ■■ ■■'■'■■ 

■ ■ . '■ 

...■■■ ...... 

■ . . ■ ......:.■■.■.,.■ 

i«na,S7- 50, -■-'• ' '' 

......■, . ■ 04, ..'.■■• -'■ 10 I9i ' 

■ , .43-6*, 786733. -"••' 

... ... .... ■■;-. ■ ■..■■■ 

,88-03 

..... 
...'■.■■ - ■ ■■ ■ ■ 
.... .■ 182,48 I0i ■ ■ 

[■.,■, f-'o I.. ,h, 63-67, 136524, 48- 40 
5620 OATA EOUtM CAROL INA, OColwo. a, 02-69 
.88432, 49- 10, NORTH DAKOTA. B8 i i»v tt 
3638 DATA 66-35, 183022. 18-48. SOUTH DAKOl 
n,8P ."• ,66-58, I 93552, 48-48, OH 10 
5648 OATA BCelenbut, 82-64, 100765, 40-48,0 
KLAh-OnA,0Oh laliOAa Cila.07-70, 181038 
5053 OATA48-10,OREaON,BSal.n,46-38,25l18 
' , 40-48, PENNSTLUANIE,8Han-;«tw-9,B5-63 
5668 DATA I 17412, 40-48, RHODE 1 Sl.ANO, IPro 
^Id.fo*, 69-60, 3 H4, 10-48, f£M 

5670 OATA BTtaihutll*. 76-00, 109412,48 40, 

7E*AS, OAu.tiA, 66-74, 63248B, 4B-48. utAH 
5660 OATA 8S« 1 1 t-ak. C : « ■*. 57-63, 21 3332. * 
0-48,UERnONT.0rlo«iP. I ;.r, 68-58, 2486? 
5690 OATA4e-4B,UIRG[N[E,0R;en,«orv).85-eO, 

- 1, 1K-1e,LfA^HINGTO^'.^ , ■- i.4i 
5700 DATA 1256I7, 18-10. uESf u I»r, i ■.;■■. .' I 
on. nort, 83-65, 62623, m *0,M| 

, a, 74-91, 145439.48 10, 
■.-...■■ 03,25353 18 IB 

ii 184-93.1 

.... 'iM-148 

..... ,. . ■ :.-.....■ 
. . 40 . ■ 
.... . ... .. |fl |, ■■■ ■ . 

. . ■ .■.-.. ■ ■■ ■ ■ i 

.. i .. . . ,110 ■'■ 

....... 10-93 

I'.r). i 

.; 00,3.8, '38-40, ......■.'■■ 

.... ■ ■ ..■ |0, ■ ■ - 

144,00-04, 

... ,..,..,.■.' I 

■■'■■■ 
.......... . .... 

g ■ ■ 

... . . ... ...■.■■■ 

. ■. .■ ■■■■ ■' ■ '■' ■ 

■ ■ ...'■.-■ 
■ 
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■-:.' '•■-.. , -:. -■ -• - .■•'■ - 

: * , 1 5 1 -52. 551 692, 1 48-39, t«4IT I 
5638 OATA IPort Au pr Inc. ,39-81, 27730.43 
-e0,HMJTE-UOLTA,BOu4»a<KM)ou. I 48-89 
5840 OATA 274280,130-66, KJKXJRA?. 
salpa, 76-87. M2838. 10-68. K«Q K0t«3 
5859 OATA incw>s «oo», 247-00. 1949,295-50. 
M0NGSIE.98«*ipm,l66-';: 

5869 OATA IWE.90.iM, 715-77, 3787399,190 
-59. JAVA, iDja* aria. 233- 107, 13219? 
5878 DATA 229-68. SunAT?- 1 . 
73688, 729-98, SULAWESI, IUji*» PoiftWr** 
5699 DATA 249-184, 189210.220-80, KALlnANT 

.' 1,539460,720-60 
5890 DATA NOUVELLE GUImEE, rPo-t rter**!^, 
274- 189, 775213, 228-66, TinOR.lO; I , 
3908 OATA 233-1,'r- N,F] ORES) IE 

«a*,!S8- 198. 14275, 229-98, |lfAK,09d»^aa 
5918 DATA 180-7.'. 13944 
iron, 193-67. i649«ao. 1 59-52 
5329 DATA IQLANDE OU SUD,IOuDl I A, I 
78292. 120-20, 1RLANOE DU NORD.lP.i'm 
5938 DATA 1 11 -45, 141 33, l 70-78, ISLANOE, IS 

29,103199, M ■ ■ 
5949 DATA U.ru.al.A. 189-78,78375. 140-44 

91,38)202,149-46 
5958 OATA JAHAlOUt, 1K;a»hoo, 80-93, 1 1473 
,40-04,JAt 1 0N,lTo<.;o.?6?-6p. I 
5300 DfttO 

96183, I 48-41. KtMri.e^u Iron. . 1 L" I -->S 
■in 582617, I08-74.K0WL IT. IK 

.■..■■■.,'■ ,.,.i \m 

5980 OATA 737-63, 236888, 2 
nuvrui i 90-127,39353, 1 39-94. LI8W 

a PATH ■ . 9 ,18 88, ■■■ ■ ■ 

. ■ ■ ■ .■■■■.-■ ■ 

■ ■ . ....■■.■■ 

HTEMSTI IN. 9Ua**. 159-53 
6819 OATA I08.140-4B.LLDIC1 

. . ■ . . II ..■.'.■■■■ 
6929 DflTO 
■,-...,.■ 

038 DA ■ ■ . . . ■ " . 

I .'. ..■.■ ■ , ■ ■-....■ . ... ■ 113 

. t-.-i if, 7 
10-98.298, I 78-75, HAL 1 ,HRo-o*o, 113-93 
6050 DATA I 240888, 1 30-78, WM-TE, ILQ Will 
i., 161-69,316. 14B-40.nARDC, IRohai 
6060 DATA 143-70, 44S95B, 138-43. NARTINIOU 
E, IFort 0. Fmnr., 101 99, 
6078 DATA V.nOH. trtuicat * , 1 30 88. '■ ft ■ 
0-32, fl"l - " ' 

6090 DATA 135-63, nAURIIAMI , IN--... t I 

136-83. 1 i7R7i>i>. i in- r,8.nAt(iriK 

ftTO iriu^Duiiou.ie .-' 
MEX10UC,9n»»;co,6^ 03, 
6108 OrtTfl 

■ . ■. -. . ■ ■ ■ . 1-31 

61 18 D9I6 I ■'■■■.-'.•. , . ■' ■■■-.•, hi., 

•oulh, 180-87, 183, 50-68, ni'c 
6170 DATA tnapno. I77- 177. 'H ".' 1.M ■!> B4, 

■ ■ i . m ■ . . ■■ ■■■ . ■ . ■ ■■ ■■-■ 

6138 0ATABKoi^ardnu,771 - . 

■1, ir1on<m>a, 79-69, ITOBOP.'U 1 09 
6148 OAIA NIGER, BN;a--..,. 1^1 -68,1)89808.1 
■.- ■ .'■; .( R|A, ILa»o., 133-31 . 
6158 DATA |30-70,N0ftU£8l . 

3696, I20-12.HOUUEU t -Cfli El ■:■,■■.'. 
6168 DATA 285-1 17, 

. twi u. in, 291 -112 

6176 DAI" .--■■ ,IM«I1I 

"Hofi ,797- 137, 768676. 770 37.0UGANDA 
5108 (1A1A 8Ko^o^l«. 177-90,24 H IK, 138 71 , 
.■: .-,,,,..■.■ B.B8 ' 140 
■■■ . AFfl 189-52, PflNWWi '■ 
. . ■:,' on. IB8-I22 

,.■.■■..,..,. 1"> .. 

<Jon. 154-46,36851. I 20 

0210 OAIA 80-111,121 210,00 '- .. 

■ ■., i".,... ... ,293091, 720 •" 

6720 DATA (MTfAlRN, llw nil 

'.■:■. ■..■- ■.'■■■ 

■ IB ■■ ■■ ■■■' ■ . 

i»,73 113, 

.- .. . . 11,139-40, 

: . ii ■ ■ ■ ■ . ■..■'■■ 
,18308,139 

■ . ■ ■ ■ . 

.. ..... ... .... 

... .., . | . ... .... 

.,■■■■ . ■ ■'-■ 10 ■ "■' " 

.... :..-.. -i,.' ■ 
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....... ■ 

... ... .-.- ■ 

...... 

■ .■ . 

■ ■ ■ ...... . ■ ■ ■■' 



Sinif f>.\t;<- ' 



CREATION DE TABLES 
DE FORMES 

Le programme CREATION DE TABLES DE FORMES pu- silechoixestlasorlieduprogrammealorssauvegardedelatable.donc 

blie dans le numero 4 d'HEBDOGICIEL ayant inspire cer- '« nom est demande ei im 

tains lecteurs. nous publionscettesemaine. en annexe, le ATTENTI0N , Les L0MEM ou HIMEM pr6c6demmen , fix6a peuven , 

listing COmplet OU programme revu et COrnge par Jean avoir des consequences lacheuseslorsduchargementdu programme 



n£raii des e r reurs dans certams cas pal 
Ex essayer la suite . . • - • ' ■ ■ • • - • 
..... • puis § 



. deplacemeni sans trac* 



Marc HERMAN. 

Note de /a Redaction 

DESCR1PTIF OU MATERIEL NECESSAIHE ; 

APPLE II avec minuscules (celles-cinesont pas obljgatoirementneces- 
saires) 

- 48K RAM et lecteur de DISK. 
Notice d utilisation : 
Apres le RUN 

atfictiage du menu 1 . Commencer une nouvelle table 
2. Completer une table 

• Si <t> alors repondreaux questions successives sur ; 
le nombrede forme 

la grille XY 

ainsi que I'echelle puis tracer torme 

• Si <2> alors repondre aux questions : 

- Chargement de la table (ou catalog, si 
"RETURN") 

- Visualisation des formes deja creees 

- puis idem <1> Pour la grille et I'echelle 
a la fin de la forme - dessin de forme sur page HGR-1 

• Si on la conserve alors ; affichage des codes, puis "autre forme ? H ou 
"sortie' - si non ; "autre forme" on "sortie" 



a partir de la K7 (done refaire un demarrage a froid avanl de charger) 

COMMENTAIRE ; 

Modifications apporteesau programme deM.MACCARI(n t, 4)etajouts 

de nouvelles fonctions. 

Modifications : 

!■■) pour le deplacemenl du spot sur grille utilisation des touches 



(de place merit sans trace) 



plus communes aux utilisateurs de t'editeur d'ecran. 

2^) modification de certaines valeurs de HS(Q). le programme ir 



avec I'ancien programme la forme est inco«ecle 

3=) modification a la (in pour lafficnage des codes permet un attchage 

suspendu dans le cas de formes trop tongues 

II AjOUtS 

• La table creee sera sauvee en AS-J0O0 

done dans une utilisation ulteneure il faudra 

ou par "BLOAD" nom AS adf esse" preciser la nouvelle adresseded*- 

part de la table et la charger aux adresses 232.233 {method© classr 

que). 

ou faire "BLOAD nom". alors la table se chargera a partir de S4000. puis 

charger POKE 232.0 et POKE 233.&4 

C'est la premiere methode qui est conseillee vu que la zone debutant 

enS4000estreserveealapage2HGRdoncpasdeHGR2smonlatabte 

est detruite. 

Dans le programme (Iigne220el 3030) ilestpossibledemotJiV-- 

leurs de ladresse de debut de table A moyennant des modifications 

eventuelles de LOMEM ou de MIMEM 

Remarques concernant les ajouts ; 

ligne 250 : LG longueur actuelle de table Cette valeur se trouve dans la 

zonedu DOS (adresses 43616 et 43617 ou SAA60 et SAA61) 

ligne 11 ; DB adresse de debut de table 



Structure dune table • Complete DB 
DB+1 



NB 



Nombrede formes 



Nombre de formes 
prevues 

Nombrede formes 
deja creees 



le reste de la table est suivant la structure classique 

Dans le programme les informations ulilisent les minuscules, on peut 

les remplacer par des majuscules. 



LOMEM: 24576: 



1638-1 



1IMEM: 32767:OB ■ 
HTAB Hi PRINT ■•••••••«.••■< 

■• GREAT. DE TABLE DE FOSMES I 



[01 



HOME : VTA8 4: 

HTAB H: PRINT ' 

HTA8 H: PRINT ' 

HTAB H: PRINT ' 

HTAB H: PRINT -• »" 

MTAB H: PRINT ■• ■ * 

HTAB Hi PRINT .........«......••••••■ 

•STAB 13: HTAB 2: PRINT 'VOULEZ-VOUS :': VTAB Id: 
OMMENCER un* nouualta tabla': VTAB 13i MTAB 3: PI 
una labia': VTA8 23: HTAB 23: PRINT ■? :■;: GET I 
, m UAL A«i; IF A < I OR A > 2 THEN 30 
ON A GOTO 108.288 

REM 

rum NOUVELLE tabic 



RINT ■ COMBIEN , 



(NB«) 



THEN FLASH ; 

GOTO 243 
Nl" FORMES sur 



182 REM 

11» HOME t VTAB B: 

! INPUT "din* Catta tabla (1 * 233) i'tNB- 
113 IF NB > 255 GOTO 119 
128 POKE 08,NB:LG - 2 • NB • 2:N - 1 
139 GOTO 2889 
298 HOME : '-TAB 9: PRINT ■--> NOM O* 1* tabla 

■ccmolHtf '"RETURN' pour CATALOG) 1*1 PR 
218 IF NM* - '* THEN PRINT CHR* (4>'CATAL0G 
228 PRINT CHF-» <4>'BLOAD-sNMt.; ■ ,A«4e88" 
238 NB - PEEK <08>tN - PEEK < DB • I): IF N » 

■ — TABLE COMPLETE ' "11 NORMAL i GET A* 
248 '/TAB 16: PRINT - — TABLE cor.lanant d*ja " 
243 PRINT t PRINT i PRINT •-- Uoul»n-voui viiuilmr 

R»: IF Rl ■ -0- THEN GOSUB 1886 

246 IF N ■ 8 THEM GOTO 12 

247 N - N • 1 

258 LG ■ PEEK (43616) * PEEK (43617) • 236 
268 GOTO 2988 
1809 HOME i HGR : SCALE- I I ROT* 8: '/TAB 24: HTAB 30 

• I NORMAL 
1083 NF - N: IF N - 9 THEN NF - NB 

POKE 232.8: POKE 233.64; INVERSE 
FOR I - 1 TO NF 
HC0L0P- 3: OPAU I AT 149,89 

VTAB 23i PRINT 'FORME NO "ill' SUP ":NB;: IF I - NF THEN 
■ DCRNIERE FORME ■ i 
GET Pi: PRINT " ": HC0L0R- 01 DRAW I AT 149,98 

NEXT 

NORMAL i HOME : TEXT 
RETUPN 



; : =-j 


IF H« 


- -M- THEN 2450 


2199 


IF H» 


- "J" THEN 2508 


2193 


IF H* 


- *K" THEN 2358 


2196 


IF H* 


- 'a* THEN 2988 


2196 


VTAB 21 : GOTO 2159 


2200 


HP LOT 


L.M: HPLOT L.M 


zase 


HPLOT 


L.Mi HPLOT L.M 


2381 


HP LOT 


L - A, Ml HPLOT 


2338 


HPLOT 


L • A,M: HPLOT 




GOSUB 


4900 


2419 


HPLOT 


L.M - A:H»(Q> - 


2451 


GOSUB 


4888 


2468 


HPLOT 




2398 


GOSUB 


4808 


2318 


HPLOT 




29! I 


GOSUB 


4006 


2368 


HPLOT 


L • A,M:L - L * 



uH*(Q) 
i(2) - ' 



0) - -011' 
0) - •891* 

GOTO 2788 

GOTO 2709 

GOTO 2788 

; GOTO 2790 



GOTO 2788 

GOTO 27(10 

; GOTO 2788 

GOTO 2788 



LASH i PRINT 




1 M*(3) - -86G 



AND 1 
1 THEN 2770 

i 108 THEN 2788 



GOSUB 4100 



GOSUB ■ 



I 1 i 1 


HOME : POKE 232.0! POKE 233,128: POKE 32768,1 
770.4: POKE 32771.8:1 » 32772tll - 


POKE 32769,8: POKE 32 


2929 


PRINT * C« progr *im* p»cm» t d* cr»tf • t d> 


eodlflar un a <orma MG 




R.*| FPII1T " C«tt» form* *it 'ritu a 1 ' ■ r. t - 






a ur>» •Chrll* E-": PRINT ' L» progriirmt d»ma 


rt kj e*ntr* 0* 1 a gr i 


2030 


PPI'fT : PRINT - Pour tracar tnf»:'i PRINT 


PRINT "W pour MONT 




ER sin* -PLOT' Z pour OESCENOPE 


an* 'PLOT' A-- 




—pour allar a GAUCHE i»r.i "PLOT" S pour 






LOT': PRINT 




2048 


PRINT ■! pour MOMTER auae 'PLOT' 






v*C PLOT- J pour allar a GAUCHE au»c 'PLOT' pour 




• 11 rr a DPOUE 1V*C 'PLOT-: PRINT : PRINT * 3- 


— pour TERMINER la «or 




-r.*- i PSINT 




2838 


PRINT : PRINT : HTAB 23: PRINT •■■—■>'|| GET 




Z8S3 


I - 32772:1 1 - 0: HOME 




2860 


HGR : HCOLOR- 7: VTAB 22: HTAB 1: INPUT ' Gr ■ 1 
"E-h.l i. :■ ;~ 




2 e 1 3 


IF B - INT '6/2) • 2 " 8 THEN B - B ' 1 




2 B 6 : 


IF C - INT (C / 2) • 2 - THEN C ■ C * 1 




2971 


X. 13? - CA • 8 / 2>iV - 79 - <A » C / 2) 




21 S3 


HPLOT 139,79 


1 




FOR - '/. TO <A • B) • y STEP A: HPLOT O.Y TO 






FOR - r TO (A « C) » V STEP A: HPtOT /.0 TO 




21 H 


L - X • (A • 6 / 2) IM - r • (A ■ C / 2)1 HOME 


VTAB 21 


21 if 


FOR - 1 TO 3 




2149 


VTAB 21 i HTAB II INVEPSE : PRINT "FORME NO : 




2199 


(Tab isi aeri hi 




2168 


IF H» - 'U- THEN 2268 




2149 


IF H» - *;' THEN 2238 




. ! .'■■ 


IF H* - -A" THEN 2389 




21 :-. 


IF H* - 'S' THEN 2330 




.■! :.1 


IF H» ■ "I" THEN 2488 





2700 NEXT 

2710 

2720 

2738 

2748 

2743 V« ■> H»(3) • H«(2) * H9( 1 ) :V« - MID* C 

2746 GOTO 2146 

2738 FOR W - I TO 3:V» - '81011066*: GOSUB ■ 

2 711 NEXT U 

2752 GOTO 2148 

2760 V* - '81611* • HK I ) : GOSUB -1106 

2761 FOR U - I TO ?;vt - *0|6ll066*t GOSUB i 

2762 NEXT IJ 

2763 GOTO 2140 

2770 Vt - "98* • H»(2> * M»(l): GOSUB 4198 

2771 V» - '8161 I960' 1 G0SU8 4108 

2772 GOTO 2149 
2798 IF H«<21 - *06O' THEN V* - -00088' * HI 

»(3> • H«(2>i GOSUB 4100: GOTO 21 40 

2781 vt - -OB - • H«(2> • >l*'l>i G06U8 4186 

2782 V» - -8 IS I 1 * • H8(3)i OOSUB 4100 

2783 GOTO 2140 

2880 V* - "'I FOR U - I TO OiV» - V« * H*(W) : NEXT U 
2818 FOR U - TO 3lV* - '680' ' V» I NEXT U 
2828 VI •> MID* ;vt.,2>: GOSUB 4100 
2836 Vt - '88866600-: G0SU8 4188 

2846 HGR i SCALE- li ROT- 8: HCOLOR- 3: DRAW 1 AT 139,79 
2836 HOME : VTAB 22i PRINT ' . . .Garda-t-on c-llt *orn.a (O/N) 
R»I TE>TT i IF Rl • *N" THEN N - N - 1 I GOTO 2966 

2832 LH - INT (LG / 236) I LB - LG - LH • 236t POKE DB • 12 • 
B * (2 « N) * I ,LH: HOME 

2833 X - I lY « 1 iA - 8:A8 - " 
2860 FOR Q - 32772 TO 1 

2879 A - PEEK (O)iBl - INT (A / 16) |82 - A - 16 a 81 

28B0 IF 61 > 9 THEN A» - CHR« < 33 • 81)i GOTO 2988 

2699 A* - STR» (8! ) 

2906 IF 82 > 9 THEN A» - A» • CHR8 (B2 • 33) I GOTO 2926 

2918 A» - A» • STR» <BZ> 

2928 VTA8 >.: HTAB V: PRINT Ai VTAB Xi HTA8 Y • 4 1 INVERSE : 



GET R»i PF 
.Bi POKE 



Ilffl A*l NORMAL 



& 



?\£* 



2929 


POKE DB • LG.AiLG - LG • 1 






x - v . 1: IFX-22 THEN X ■ 1 lY - t * 


B 


2934 


IF Y > 38 THEN r - 1: HTAB 28 1 VTAB 34 
i GET R»i HOME 


FLASH : PRINT 


;■■■-■<*. 


IF A - THEN 2943 




2948 


NEXT 




2949 


|F N - NB THEN VTAB 22: FLASH i PRIHT 
-i: NORMAL iF - li GET A« i GOTO 3090 


1 PRINT ' T,i,[i 


/■■■- ,. 


VTAB 23i GET R» 




2960 


HOME I PRINT -1 Autra FORME' I PRINT 


i PRINT *2 


2976 


PRINT i PRINT I PRINT : PRINT --«—)- 


i GET R» 


2991 


IF M ■ ■!• THEN N - N • 1 : GOTO 2933 




2999 


IF Rl < 1 '2' THEN 2968 




■■/.:■„ 


PRINT i PRINT I INPUT 'NOM da la tabla 


■ (NM9 


3010 


POKE DB - 1,8 




3020 


IF F ( > 1 THEN POKE 0B • 1 ,N 




!> IX 


PRINT CHR» (41-BSAVE- |NM»|* ,A»4098 ,L" 


LG 


..■-.,■ 


END 




.-„■■»;• 


FOR 0-L-A/2TOL«A/2r HPLOT 


3,M - A / 2 TO 



TABLE COMPLETE 



0: RETURN 

FOR P - TO 7iV - VAL ( MI08 (V»,(8 - P>,l> 
P0K1 1 .' '! I - I • I ill - II • 1 IV - 9l RETURN 
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■ . . . ■ ■ ..-..■ 
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0188 Ofilf* 439,40-60, tuRQUjE, BflnKora, l?0- 
.,182-43 

6499 DATA ■ 

■ ..-.' Sfl 16 
6300 OAT A 

,'■-■-■ . ■ ■ ■■■■■ 8 II ■ 

........ 

»li,l74-40,2e7fl»B 1 

6330 OATr. BTal I li ■ -'■ M8-I0.R 

.....;■..■;,. ;i*:,|B 81.68 SB 

0340 0A!A i09-iB."'. r . OU KAWWMSTrW,WI«a 

■i- ■., ! '-■ .)),?7l7300, 160-30 

0339 OrtTfl ■■ 

18 i!iM60-3O,SSS DE L£TTON!E,0Ri»a 
6568 OftTfl l JB-i.-. i I .'.' 
LIANIEiBUI M tut, 171 -19.03280, I ■)» 19 
6370 DAIA MS 0£ riOLOAUIE.BKIcMoa'J, I73- 
35.33700. in' ■•'. 

6388 DATA Hlocnhani , 700-OB, 447B80. 100-30 
,RSS 0£ T rlOJ I K 1 S I AN . BUn>j<-. hiM>a . 700-04 



.'.,-.'■ 



i, ■ 



0590 Ortin M3I08. 168-10. - 

..-.',■ -'■'. "18-40 

0600 DAI It ■ . .i!K!. 

AT, Id ' lao, 10 i 132 

0610 DATA 

l?,91MMi5»-?B,UATl 
6670 llf'i" ■ ■ '-,.-., l"i 61 , .44. I 

48-1B. "1 " 18*81 

.'.■ii ■ 
0640 Ontft UAL! 19 I I FUIUMA: ■ ■ ■ 
-1B8.274, 
0030 DATA IB6-eo.790B0B, 198-57, 'I ri'» DU 

17 !l ', ■ 18868, 138-92 

0600 DATA TOUOO'.i AUII ..''' 

53304, 148 48, IAIRI ,8Klrtahft»«i i't:i-l86 

8878 DATA M14889, 138-74. WfWlB. 8 ■ 

171 11 1,731614, I 3B-62 

0080 ten oecBCBt0r.Bc set" bi < 

.'. .ii .ii u i 

0090 Rtn FO F io «•• DA1AS "D 

0780 RCA COM! it, .•.in m 81 81 I 
■ ' ■ m W)0 



PECHE 1 



VousGtesrentre bredouillele week-end dernier ! Qua cela 
ne tienne : rentrez ce programme dans vot re Tl et vengez- 
vous... 

Jacques JOLY 

Le menu s'afftche sur I'ecran vous choisissez le niveau de difficulte 
(1 a 5). le nombre de Cannes a peche (1 a 4). et le nombre de joueurs 
(1 ou 2) 

Se dessme alors a i'ecran le decor du jeu : une nviere sur laquelle flotle 
une barque, des plantations aquatiques. et 4 cannes a peche. Les 
4 cannes sont toujours representees a I'ecran. mais le nombre actif des 
Cannes dependra de celui que vous aurez choisi an menu Si vous 



navez choisi qu'une seule canne, ce sera celle se trouvanl dans la bar- 
que qui sera active Pour 2 cannes. vous aurez en plus celle situee a la 
droite de I'ecran. etc... dans le sens des aiguilles d'une montre 
Les scores sont remis a zero Les numeros venanl s'inscrire pres de 
chaque canne vous indiquent de quel cole 'I laut basculer la poignee de 
telecommande pour (errer sur la canne en question. Attention, ces nu- 
meros permutent d'une partle sur I'autre pour corser lejeu. Pour ce qui 
concerne les poignees dejeu, les numerossonl invariables, a savoir : 



Poi g nee de telecommande. 
2 II taut basculer !e manche du cote correspondant 
au numero inscrit au pied de la canne 
sur laquelle ii y a une touche. 

Jeu a un seul joueur : 

Vous devez utiltser la poignee 1 (I'autre n*a aucun effet). Voire score 

s'inscrit en haul a gauche. A la fin d'une manche (vous avez droit a 

50 touches), ce score est transfere a droite el une nouvelle manche 

debutera 



Vous pourrez continue' a jouertant que le score que vous realiserez par 
la manche que vous venez de disputer sera supeneur a celui realise par 
la manche precedente Le nouveau meilleur score prendra alofsla pla- 
ce del'ancien. etc 

Lorsque vous aurez perdu. I'ecran clignotera II faudra appuyer sur une 
touche pour arreter la partle. 
Jeu a 2 | oueurs : 

Chaque joueur dispose dune poignee C'est le plus rapide qui attrape 
le poisson lors d'une touche A la fin d'une manche. annoncee par une 
melodie descendante. il suffit d appuyer une touche pour recommen- 
cer a jouer. Pour arreter le jeu. N faut faire un BREAK (FCTN et 4). 
Remar q ues : 

Les touches sont signalees par une musiquemaisaussi par le bo uchon 
qui s'enfonceetlesillonde la canne qui sephe Pourferrer.il faut bascu- 
ler le manche de la telecommande du cote correspondant au numero 
inscrit au pied de la canne concernee. 

Que vous jouiez seul ou a deux, si vous vous trompezde canne enter- 
rant, le programme vous retire des points et des poissons. alors atten- 
tion et... 

BONNE PECHE... 



■ ALPHA LOCK ' ' 



NE DOIT PAS ETI 



1040 OPTION BASE I 
1030 OIm 11 IS) - 
10*0 CALL CLEAR 
1070 PRINT " LA TOUCHE 
OUE LES 
1080 PRINT - POIGNEES FONCTIONNENT": i " CORRECTENENT. 

I090 FOR I-l TO 2000 
110O NET : 
1 110 CALL CLEAR 
1120 RESTORE 

II " DIFFICILE - : -: : 

HDVEN 
1150 PRINT - FACILE - .' : : 

1160 PRINT - TRES FACILE - «":: 
1170 PRINT -SUPER FACILE - S"ll«l 
IIBO INPUT - VOTRE CHOI! "iD 

EM mo 

HEN 1110 

'--10O 
1320 CALL CLEAR 

INT * COKBIEN VOULEZ-VOUS":: 

1240 PftWl " DE CANNES (1 A 4':::; 

125© INPUT • VOIRE CHOI* "JFO 

12*0 IF PC 

. . 
1280 CALL CLEAR 

1290 INPUT " I OU 2 JOUEURS ■ : L 

1300 IF Z<1 THE' 

131 II . " ■ ' : ■ . 

1320 CALL CLEAR 

1330 DATA 0080808048494965, 2A2CIC08080808C8.484928292«IA)E1C 

395A3A5E7C:.C7C. 131S1S1B1819181B 

1340 DATA 1ESClC199898S878.39I9tAlAlCICiai8 

2***6E*FFFFFFF. 101014! 49496960* 

1350 DATA D*06D*D*D*06FCFC,7C783838iai81S18 

34145918101010. I010109090D03050 

I360 data 3!3: i i i U7:7:*i*, lciciaiaiBiaiaia 

1 543454 . 54545C5C58595878 

1370 DATA 7878707070707070,7030303030303030, 

:■■ '.-:. :■■.'■ .">:■: -vs:, ■■■.■:■■■ ■:■-. -,■.<:■:.<-.■■.-. . 

1330 DATA 0000000000000000,0000000048484829 
09O9ODOA0E I C I C, 9898989838385338 

1390 data 5ASA3A3E1C1C1918, iBieiaisiaieiaiB, 

797A7A7BFBFFFF, 1212121 212125252 

1400 DATA 5232P2P2 P 2P2P2Pg, P6D6P6P6F6F6FFFF, 

1 ■ : P OOOO . OOOO 101038383838 
1410 DATA 3838383838381010,0000000000000001 
00OQO00OCOG0FO.O3O7OF1FIF3F7F7F 
1420 DATA FFFFFFFFFFFFFFFE.FFFFFFFFFFFEFE3C 
FFFFFFFFFaEOO0,FEF6F3E3£321OlO'l 
I4JO DATA 3COC040000808080,0303010100000000, 

FFFFFF . FFFFFFFFFFFFFFFE 
1440 DATA ■■■ 2F9F >E0C09< OvOO. 7F7F7F3F3F3F 1F1F 

■ I S0C06O3 
14SO DATA 0100000000000000,8040201008040201 
■ ■ :■ . ■ : : ■ ■-. ■ 

■ ■ " ■ ■ 
■:0101038387C7C 
1470 DATs C ' U0,0O001D3F7F3F 

00000000000000.0102040810204080 
14BO DATA 0OO0O0O01C224180.O0101010107C7C38, 
OOOOOOOOOOOOOO, 1 03060C I ■- 

1490 DATA 8000000000000000,0102040910204080, 
OOOOOOOO' ■..'■. ■: : E3F1DOO 

■ ■■ ■ ■ ' ■ ■ . 

00<>0OOOO©FO00O,O3O7OF0F'JF 0F1F1F 
(S10 DATA BOCOE3F3FFEOFOF8,3F3F7F 7FFFFFFFFF , 

'■-. 1-33 TO 47 
133* PEAO A* 
1340 CALL CHAR(I.A»I 
1350 NEXT I 
15*0 FOR 1-64 TO 139 
1370 FEAD A* 
15BO CALL CHAR' I, A* I 
1390 NEXT I 
l*0O FOR I-l TO 16 
1*10 READ C 
1620 CALL COLOR(I,C,e> 
1630 NEXT I 

1**0 DATA 4.4. 16, 16,3.3, 13, 13, I 1,11, 13,14,9,7,10, 
1630 FOP. 1-1 TO S 
16*0 READ Tl (I> 
1670 NEXT I 

16SO DAT- 142,130.93,117*126 
[-1 ro 4 

1700 FOR J-l TO 13 

no ra.j) 

1730 NE 



EHFONCEE POUR 



isiBiaiQiaiaiBiB 



OOOOOOOOOO OOOO o 
9898S9393E181S 



OOOOOOOOOOOOOOOO . 



■. . .■ ■-:■ - 



O0OO0O1010101010, 

7E7E7E7E3E3C3C3C 



000O0O031F3F7FFF 



FBFCFEE20OOO00OO, 

8080000000000000 , 



O0OO001«3Cia.X.:00. 



000000003044820 1 

Ol OOOOOOOOOOOOOO 



00IB3D7FFE7F3D1B 



ooooooooooooioio 



DOOOOOOOIC; 24 : ; -!'., 



181BlBlB18?a535S 
00080SOB082C2424 
001090909091 91 D2 : 
I81B1SIBISIBI 



OOO OOF oooooooo . 
FCFCFCFEFEFFFFFF 



3O30303O3464646C 
3C3B3B1B1S1S1B1B 
OOOOOOFEFF FFFFFF 
0000000101010303, 
FFFFFFFFFF7F7F7F, 
0OOOOO3A7C3A0O0O. 
0O101O1O1O7C7C7C 
804020 100804020 I 
1 03060C I 83060C0 
00183D7FFE7F3D1B 
0010101010383838 
OOOOOOOOOOF ooooo 



; 730 r 



XT i 



10 



»Tfl 1.0,4,8,18,14 
4. 19, 5, I 

: ' 

1790 IF Z-l THEN 1820 

: ■ I 

;;■■■■ M " 
184 ... 

. ■ 

■ ■ 

m k-i 

: ■ 

■ ' ■ ■ 

■,:■■-•! : 
: -. ■■ ,1 

r 1 1 . 2i 

■ ; 

: ■ I, I 

: . . ... • . ■ 

: . ■ ■ . ■ ■ 

, . 1 I -A 
■ '.2i-B 
■ ■ . 
. : NEXT I 

■ — . ■ 

■■ ■ 

■ OR 1*1 n, ... 
70*0 FOR 1-J Mr J2 

■ 

■ ■ 

iext i 

110 I ■ ■ ■ ... 

2130 i i . ■■ ■ i 



41.5.18. 139, 139. B, I 



12,73, 124. 123.8.23. 
1,0, 20,28, t4B, 149.17 



2170 GOTO 2140 

2180 DATA 4. 10,98.4. I 1.99. 4. 12, 100,4, 13, 101 ,3, 10, 102,5. 1 1, 109,3, 12. 104. S, 13. 103. 

i-.o. IOi.6, 10, 107 

2190 DATA 6, 11, lOB,*, 12. 109. 7,9. 1 10. 7. l'j. 1 ! 1 , 7, 1 1 . 156. 7. 12, 157. B, 1 1 , 13B.8, 12, 159 

,9,8, 1 12,9.9, 113 

2200 DATA 9, 10, 113, 9. 11, 113, 9,12. 113, 9,13, 113, 9, 14. 114. 9. 15, US.IO. 8. 116. 1 0,9. II 

3, 10, 10,113 

2210 DATA 10. 1 1, 113, 10, 12. 113. 10, 13, 1 14. lO. 14. 1 13.8, IS. 136.8, I*. 137.7. 16, 136.7. 1 

7. 137.6, 17, 136,5. IB. 138 

2220 DATA 9, IB, IIO. 13,32. 120 

2230 DATA 15. 31 , 121 , 1 4, 31 , 120, 14, 30. 1 21 . 13,30, 120, 13.29. 121. 12.29. 120. 12.28. 121. 

11,28. 120. 11.27. 121 

2240 DATA 10.27. 120.10,26, 121 ,9,26.120.8.23.122.12.23, 124,24, 13. 128.24.14.129.23 

. 14. 128,23, 13. 129 

2250 DATA 22. 13, 128,22.12. 129. 21 . I 2, 12S. 21 . 1 1 . 129,20, 1 1 . 128, 20, 10, 129, 19,10, 123. 

19,9, 129, 18.9, 12B 

2260 DATA 18.9, 129, 17,8,128,16,7, 130,19,5,132.24, 19, 144.24,20, 145.23.20, 144,23,2 

1. 143,22,21, 144 

2270 DATA 22,22, 145.21,22, 144,21,23. 143,20,23, 144,20,24.145, 19,24,144, 19,25. 145. 

18,25,144, 17,26. 146 

2280 DATA 20.28, 148,24,1,43.23. 1 . 42, 24, 2, 46,23, 2, 45, 22. 2,44. 21 , 2,97, 20. 2. 96. i'4, 7- 

.86.23.3.85,22.3,84 

2290 DATA 21.3,83,20,3,82, 19.3. 81 . IB, 3.80, 24. 4.89, 23.4. 88.22, 4, 97,24.3, a", 77. 5. 1 

2,24.6,B9,23,6,88 

2300 DATA 22.6.87,24,7.89,23,7,88,22.7.87,24,8.43,23,9.42,24.9,43,23.9.42,24.10. 

89.23, 10,88,22, !O.B7 

2310 DATA 24, 11,89.23, 1 1 ,8B. 22. 1 1 ,87, 24. 12,43.23, 12,42.24, 13,43,23, 13.42,24. 16,9 

4.23,16.93,22, 16.92 

2320 DATA 21, 16,91,20, 1*,90, 19, 16,97.18, 1*,9*,24, 17.46,23,17.45.22,17,44,21. 17,9 

7,20, 17,96,24, IB, 74 

2330 DATA 23, 18,73.22. 18.72,21. 18.71.20, 18,97.19. 18,96,24,21,43,23,21.42.24,22.4 

3,23,22,42,24,23,89 

2340 DATA 23,23.99.22,23,97,24,24,89,23,24,99.22.24,97.24,23.46,23,23.45,22,25.4 

4,21,25, 132,20,25, 153 

2350 DATA 24,26, 43,23, 26,42,24. 27, 89, 23. 27, 88, 22. 27. B7. 24, 28. 43. 23, 28. 42. 24. 29, 4 

7.23. 29, 42,24, 30, B6 

2360 DATA 23.30,95,22.30.84,21.30,83,20,30,82, 19.30,81. IB, 30. BO. 24, 31. 70, 23. 31, 7 

0.22.31,*9,21.31,fcB 

2370 DATA 20,31,67,19,31.66,18.31,65, 17. 31 ,*4. 24. 32. 41 , 23, 32. 40.22. 32, 39. 21 . 32. 3 

8,20,32.37, 19,32.36 

2380 DATA IB, 32. 35, 17,32,34, 1*, 32.33, 0,0,0 

2390 FOP I-l TO 4 

2400 CALL HCMAP(T<I, 121 ,T(I, 13) . T ( I . 1 > *48> 

24 lO NEXT I 

2420 E 

2430 




2440 


CALL SQUN0<3OO,392,0) 


2450 


GOSUB 35 40 


2460 


PANDOHIZE 


2470 


IF RND<.OI THEN 2480 ELSE 2460 


24 BO 


Dl-O 


2490 


Zl-O 


2300 


Z2«0 


. ,:■' 


I=INT (RND'FOM i 


,:;:■■. 


CALL SOUND (100, 220,5, -I, 01 


2530 


CALL 50UND<-100,440,5,-I-I,0) 




TT-TT*1 




CALL HCMAR!T(1.4) ,T<I.5>.T(I,7) 


23*0 




2370 


CALL JOVSTM.Xl.Yll 


2380 


CALL J0Y5TI2,X2,Y2> 


2590 


IF XK>T(I,2»THEN 2610 


2*00 


IF Y1-T(I.3)THEN 3050 


2610 


IF ZK70 THEN 2630 


2620 


ZI-X1*V1«2 


2*30 


IF Z-I THEN 26B0 


:.'..!.-, 


IF X20T<I,2>THEN 2660 


2630 


IF Y2-T<I.3>THEN 3260 


2*60 


IF Z2O0 THEN 2680 


2670 


Z2-X2*Y2»2 


2680 


01-01*25 


2690 


IF DI'D3 THE" 2570 


2700 


CALL SOUNDdOO, 2000. 0,-6. 01 


2710 


CALL HCHAR<T(I,4> ,T C I ,S> , T ! I . 6> 


2720 




2730 


IF TT<NT THEN 2430 


2740 


FOR I-IOOO TO 500 STEP -10 


2730 


COLL S0UNDI-3O, I.O> 


2760 


NEXT I 


2770 


IF Z>l THEN 2890 


2780 


IF P0>-P01 THEN 3470 


2790 


P0-P01 


28O0 


POl-O 


2810 


CALL HCHAR(2,9,4B,6) 


2820 


L»--0OO0O0"(.STR4<PO> 


2830 


L*-SEG» <Lt,LEN<L«l -3, 6) 


:■ B40 


FDR J-l TO 6 


; 950 


CALL HCHAR<2,2I*J,ASC<S£G*(L4, J 


:n v.. 


NEXT J 


2870 


D3-D3-D/10 




GOTO 2930 


2890 


CALL KEY(O.V.W) 


-,:■/ -■«.. 


IF W-0 THEri 78"", 


: '■." 


CALL HCHAR<2.8.4B,6l 


: ■'." 


CALL HCHAR(2,22,4B,6> 


2930 


GOSUB 1790 


2940 


FOP I-l TO 10 


: 930 


FOR J-3 TO 7 


;. ',.,-, 


C-INI IP(lE)«4) 


2970 


CALL HCHAR<!.J. I52*C) 


2980 


CALL HCHARCI.J»23,152»C1 


•■/,. 


NEXT J 




NEXT I 


JO 1 


FOP W 10 4 




CALL HCHAP (T (1 , 121 , Tl I , 131 , ' ' I . 


(030 


HE • 1 1 


[040 


DOTO : 420 




D2-IN1 (4,9«D1/0I *1 


■ ..■ 


CnU. HCWWd 'l,4i , i m.-.i . i i •!). i 


-■ i /. , 


-■■:■. [-:- : 1000* 


■ a 




[090 


NEX1 ' 


■ '■ ■ 




' l '. ■ 


i ci r HCHARI ll.JI.Tl 102! i 


-i . 


J1-.1! •! 


[ISO 


II T! h TUB 






B^ XC 



i >2oo*D2>] m i ■■■-■ 



, II 



I'! 



I - . i j 

;.i ;.. n in ,, tHEl 

: 
j . 

» ■ " i.l 

' . I ■ ■ l t ■ ■ i ■ ■ i. ■ ' • , i ■ 

l-l 10 6 

'■'■'.'.' 
i ■ I .1 
■ ■■■ .,',■■■ , I- 

. ■•:.■! ■ :■■ • 

■■ I HA 

■ . -. i :■ - [i ■ - >»0 - :■■■■■■' ' 

. ■ '.i ■■■.". ).". 1,0) 

■ ■ Kir j 

* IT<I,4),T(I,5),TU,7I) 



3320 


CALL HCHARM2.J2.T1 (D2I ) 


3330 


J2-J2+1 


3340 


IF J2- 33 THEN 3370 


; ■■.'.. 


12-12*1 


3360 


J2-28 


3370 


P02-P02* (6-D2I •200*0-01 


3380 


IF P02>0 THEN 3400 


3390 


P02-0 




L»-STR*(P021 


3410 


L«--O00000"(-L4 


3420 


L4-SEG4IL4.LEN(L» 1-5,6) 


3430 


FOR J-l IO * 


3440 


CALL HCMAR(2,J*21.ASC«SE0»(L 


3430 


NEXT J 


3460 


GOTO 27 IO 


34 70 


FOR I-5OO0 TO 200 STEP -lOO 


34BO 


CALL S0UND<-40, 1,01 


3490 


CALL SCPEENUNT'PND«I**1H 


1300 


NEXT I 


3310 


CALL ►EYIO.V.Wl 


3320 


IF W-0 THEN 3510 


•-,-., 


END 


3340 


IF Zl-0 THEN 3730 


S330 


Jl-JI-1 


33*0 


IF Jl>2 THEN 3630 


3570 


Jl-7 


■ BO 


Il-Il-l 


3590 


IF I I O THEN 3630 


3600 


I I-l 


3*10 


Jl-3 


J620 


GOTO 3730 


S630 


FOR KK-20O0 TO 110 STEP -200 


3*40 


CALL SOUND) -lOfi.M ,01 


3650 


NFfT M 


/,.,., 


CALL HCHAR(I 1 . Jt, I32*INT(RND 


3670 


P0I-P01-3O0-|NT(RND*3O0» 


(680 


If POI '• THEN 3700 


1690 


PO 1 'O 


J i. ..;, 


i ' ■■■ ■ -if XPOll 


37 lO 


I » 1 ',*'! *,LEM(L4>-3.6) 


'.'.■■ 


FOR J-i TO 6 


1 ■ 


CALL HCHAP'. .1- •..,:. (81 '■* II • 


[740 


NEX1 ,i 




n ,'. IHEN 1960 


[740 


i II i 




ii |2 : in!" 1840 


J7B0 


1 




13 13 i 


■ 


ir [2>o iki ti 1840 


ceio 


1 2- 1 




J2-7FI 


,, ■,, 


■ ■ 


■1)4., 


i i,i- ii ..,■>■, ro <I10 8TEI 




CALL BOUND l 100, Kl ,0) 


■ ■ 


NGX1 i ' 


1 ■ 


1 .,i ■ ■ i. ..r-. :■, .INTII Nl 




i ■.,■.;,,,.,;.. 


1890 


ii ■ ■; ■ rHSN ''!'.' 


'. I 






! I ■•.■.:.,■, ,,.-, 


K ■ 


i | BtO»<L»,LEN(L») 3,6) 




i ■■■ ' i 10 6 




I Al i iif il','-': . |..'| .,,■.! 181 81 II ■ 


■ 


Nl / 1 .1 


I960 


m. ruvi 



SURVIE 



Ce programme est un jeu d'aventure sederoulant sur la lu- 
ne. Le but du jeu est den repartir a bord d'un astronef que 
Ton aura eu soin de sparer avec divers objets que Ton au- 
ra decouvert en diffdrents lieux et places de la planete. 



A suivre : 

En re/son de la longueur 
inhabituelle du listing, nous 
passerons ce programme 
plusieurs fois. 

La Redaction 



Gerard ROUGEVIN 



Le mode d'emploi se Irouve dans le listing 



tots 

■ 

II OmEFP GOTO ITS 

■ ■ 

t>8 none Din 'i v m - 
I 649*4 

■II. .1 I... unit 

M ppint -i 

90 PPINT -i ... 

IBS PRINT it . I , t ll.lin, ti, , - 

I I I tltlllllt- 
118 GET 0I 

i£-j : c ci • j- mcH 
-.■:■-: ji T-!i.' ■. ---_ 
■ 
-•;- ■ 
'.*» GET :t -■-■:-.• print 

■ p - 
143 ^:= :-'.'; i< read "• : 
«xt : 

: ■ I *■: 57 REAB "f : 
NEXT : 
249 POP I • t TO 61 
£19 POP 1 ■ I 
224 BEAD - : , 

■■. ' , 
:*0 NEXT I 
£58 REM 
349 0£n AUTRE 5 
1*59 R£H 
378 P ■ 1 CIHW ■ 3'G • 2-Tl • 8 T2 

• 324 p; ■ :to pz * se . 

• 1 KI • ? 

189 OtlS» - 33 0* 1C ■ -;■.;:; 
■ I 5 : i ■ ■ -- % : * --::." 
■ 9-«7 » 38 0<8> • 35 : :> « 

■ 33'ttll 

■ " 

398 rK14.4 • • IK14,S> • HC14.7 

. 1 H<-2.9> - MC2.7> * 1 
499 Fl « 9 F2 » » F* - 8 7* . 9 F7 

• «>F9 > 8 

398 POKE 34.0 POM 32.9 hone 
£99 PRINT *TC 



ssa i 



69 ■ 



[MI 



INT (H) HI ■ 
57; [f h • 9 THEH PRINT Tl ' 
439 I e m ■ I THEN c -!-;* -■' HEURE 3 

> -:H1 " "' 

633 IF 0< 11 > • sr mew PRINT r WEI 

IT '.-PI JHITE9 

SM IF :■ :* ■ W THEN PRIM -POMER PA 

:• ■ ■ ■: 

739 n ■ n * - 

719 IF «ll> ■ 59 AND PI 5 THE 

• M - 3 
729 IF ■;: 14) • 99 AH! "2 > 5 THEM P£ 

- P2 - 3 
738 (F (Ktl ■ =7 WO PI • 8 TM* 

748 :-■;:; ■ 99. -■■: - . iheh 37W 

759 [F n 138 THEM ■' * 19 

764 IF r L ■ 188 rwEs 3663 

rn :■ ri 

789 IF FQ • : THEM T2 - T2 - 9 

799 i- ra a them rz - a 

dm ;- = . 
in " 

S£0 IF F9 ■ ■) THEM 948 

931 tf ; 21 THEH Z9SS 

849 IF P : | -: THEM £5"!0 

338 :~ -* ■ as the* 1788 
369 IF p ■ >-: "- : 

97a if -v ■ . Inch prim *reste e ■ ■ 
en£"* 

■ ■ - - ■ - INT -: 

t 60-H2 * [NT - : ■■: iht ■ : 

874 IF H2 * 9 r«£H '- IHT 



J73 



TKCN 



■ -; 



•j«2i' 



UT£8" 



^e^ trt'jER?e pbiht -presente lO':-l:-:»: 

•ITE^ ' KORHAL 
899 FOR I - m P. 7) TO HCP#*1 
989 PPTHT rn [ > 
919 MEXT I 

HE K ...-".■■'■ 
ON-'fP; a 

938 PiriHT -/r.-xT.- if FO « 1 THE* 

PPIWT " . 
937 IF FO ■ > I 7HEM IF F9 • I 
THEM PPIHT " Zl tM "jO" 1' 

KWftAL 
948 [f P < i THEH 1929 
948 P=;nr • IL V A A CET EHDPOIT 

?*r ei - 

939 FOP I • 1 TO \K 

969 IF 0< I ■ ' P THEM PI ■ PI 

• 1 SOTO 998 
II 4*29 
988 PPIMT If 
999 HCAT I 

993 IF "I - 18 THE* P* ■ 
PE - 
1999 08TO 2008 

1819 PEM 

:^;8 peh i.r::*ij=£ D-OHE " 
19J9 PE« 

1833 M8U1 1^884 

:8T^ POKE T* IT POKE J2.28 HTAI 

VTUZ 14 
1849 iMPIjr E* 

;8*a : ■ 8 

18€9 IF LEri El 

1378 IF El - "ft" THEM I - I 

1989 IF El " "S* THEM I * I 

18*9 IF E* - -£■ THEH I * 1 

1199 IF Bs • *U- OR !» » "0* THEN I 

1118 IF El - '»- OR B* • "H- T«Z: 1 

• 3 
1128 IF El - -0* OP Bi ■ *8" THEN I 




# 



& 



1134 IF IB ■ "I then E»/0 

1149 IF I » THEM 13«0 
1158 ir N^P I -8 TMEft 1278 

it*;* :f n. p 1 • t$ rHEW 

1171 • He P, ! ) 

1189 IF P ■ i- rKEN 3888 

1198 IF P » 13 ruEfi 3290 

1299 IF p > ;i :MEh ( 7::.) 

1219 IF p ■ £3 THEM T449 

1229 IF P « is THEtt 3490 

!2i8 R - F 

L248 P ■ J 

12« IF P • !1 THEM W » U 4 I 

ti-;8 COTO 588 

1278 print 'uous "-: P'j'j"ez p--; -._■:- : 

DN6 C£7TE OIPECTION I" 
1288 WTO 1849 
1299 REM 

1199 RE" PPOCESSE'JB iMflM^nCt I :(*SflCTE- 

E-: 

1319 REM 

:?28 <:i > le-*» tB».3 

1338 IF i;i » -W)I" OR r- . -^.ji.j- 
THEM 380 

1149 IF Of - -P»E- OP C* ■ -OET- 
OR II • "REP" OP CI ■ -EWP" OP :i 

■ "TEH" OR C* - 'Gdf.' THEM 2198 

1339 IF C* - 'LAC* OR C* • -MET' 

OR C* ■ -REM- OR CM - "POS" OB ;* 

■ "DEP- THEti 2588 

13<59 IF CI - -ItlU- THEM 2768 
1379 IF CI « -O'Jt- OR CI - "FIH" 

THEM MOME MEU 
1388 IF CI - "TRft- "HEM 1739 
1399 IF C* • "CPE" OR C* - -FIO" 

THEM 1869 
1*99 IF CI • "SftU" THEM 1618 
1439 IF C* « 'FUE' OR C» - U ESZ' 

THE" 4958 

1588 IF CI - -LIB* THEN 4269 
1519 IF CI - "DES" THEH 3919 
1529 IF CI » "BUt" THEM 4139 
1339 IF CI * -H6IJ- OR CI • •MOM- 
THEN 16*9 

15*8 IF C* - "BAS" THEM 1649 
1338 IF CI » -S'JD- THEN 1649 
1369 IF CI » -EST" THEM IS49 
1579 IF C» • -OUE- THEM 1649 

1589 PRINT "INSTRUCTION IHCOumjEOES O.E ' 
JE SUIS OS^EZ PE'J [MTELLtOENT - 

COTO 1949 
1599 PRINT -JE HE PEIFH Pf-S EXCCUTER WOT 
RE ORDPE!" 
1688 COTO 1948 

1619 PRINT -ENTPEr. LE CODE 0£ LC LOCALI 
SftTION-.- 
1629 INPUT P 

1621 IF P f 1 OP P > 61 THEfl PRINT 'UiJ 
CLEUR IWCORRECTE. RECOlWEHCEZ< " 

COTO 1629 
1639 OOTO 498 
1649 D* ■ E* 
1659 Ei ■ LEFTi (0*.I> 
1659 COTO 1878 
1679 REM 

1699 REM PRMESeEUB POA« L*0 rGEHE 
1699 PEM 

1788 [F R i 3? THEN 2998 

1719 GOTO 869 



728 



■■:■' 



1739 REM PROCESSEUP DE TRANSPORT 

1749 PEM 

1759 IF P ■ :■ 36 THEN 1689 

1769 IF <y.Z> • 39 THEN 1599 

1778 P ■ 0"3> 

17S9 PRINT "LE RAYOH KOUS EMNEHeA J-i AU 

tpe EM9R0II CLP 00 IL ( A UH AUTRE '-" 

GNSPOPTEUR)" 

1799 GOTO 598 

1388 IF p 1 g FKEN 1599 

1818 P ■ 36 

1829 COTO 1788 

1839 PEM 

19*9 pen ppoce-;-:-::.- DE ::-■■•■■:-: .--:. 

-;ep 

1859 PEM 

1569 IF P / 18 THEN 1598 

;^78 01 93 • 19 

1873 POW Ji-0 

1SE9 GOTO 9*8 

1898 PEM 

1990 »EM PEPTE EE L ' ILLUMHATgUP 

'.9 18 »EH 

1929 IF 0- a; 919 7HE>i 938 

;?38 ; 4) - 199 

1948 PRINT 

INATEOP ■'■ 

1950 PPlNf -NE ■ . . 

IdtO 938 
1978 PEH 

:5in --.■■ 

19^8 PEil 

2890 IF 0' 5 ■ - :• THEM 0(3> ■ 13 

2818 IP Q> i • 4 EM . . 

c8£3 IP O'-l) * *t TmEN 0' 3 ■ - *2 

2839 [F 0< I'-' rHEN 9<9> ' 41 
2049 IF 0' 3 - £5 TkE" 0<3> ■ U 
2938 IF 0<5) ' ) 33 THCH 

^8-;9 :•" p 

i.i) ■ » 

^8^8 : " 

2999 IF 0' 3) 

2199 IF f U rMEM 1818 

2119 0' 3 ' • 25 
2128 IF 

2136 cc;. 

PA8 necw ■ 

21*9 PRINT 



: ■■ 



ESi ■ 

£150 GOTO 3888 

£168 =E" 

£179 REM ■ 

2180 PE" 

£198 TAKE * I MSUl «60>) 

£J88 [F I -■ 9 fHEfl 2260 



1 


■■ ■ 


1 


■ ■ 


- ! 


.- ■'! ■ ' ■ 1 




■ 


■ ' 


.... 




..» c< ■ 




«38 


EF 01 ■ ■ ■. 


££55 


IF I «■:-:. 1* an! 




■ ■ 




. ■ 




[F at 1 ■ -. 


2278 


■ ■■ . . 


2289 


IF I - 3 Ti Dl 


' 


IP I - ;■' THEN £»:-; 


' !8fl 


IF : ■ 11 ---;■< UK--- 


1 7 ; •! 


;r I ■ 1 » FHEH 2490 


:;;■) 


: - C * 1 


138 


:■ 1 ■ ?.- 


23*0 


IP I - 3 THEN Ffl « l 


2358 


■ ■ : ■ 01 


£3-:o 


;qi .•■.•■ 


£378 


PRIM 'IL N - <---: DE 


P 


:» T l SI LEfl El - . 


2388 


GOTO I810 


£390 


PRINT :.-. ■-: POO E2 p. 



EP ■- 

£*.)0 COTO 18*0 

£418 PRINT . - . E2 ■■ ■■. TPfl ■■:- : 

pter UN POBOT" 

2429 GOTO 19*8 

£«;9 PRINI - EZ PAS >*TEn|; 

LE nE';-;&GE." 
2**9 PRINT -IL E3T SUB L'ECRftM rERI IN. 
L* 

2*39 GOTO 18*0 

£--:9 IF 0* t» I ■ 7?? THEN £ = £■.' 
£478 0' 11 :■ • 99 
2489 GOTO 2329 
2*99 IF 0(11) « 95 THEN 2329 
2599 0( 14» ■ 59 
2513 GOTO 2329 

2529 PRINT ' ] J -. HE POU E2 PAS - US ; 
LUS D'UHE" 

2539 PPINT -UNITE DE PUISSANCE 
23*9 GOTO 1848 
2559 REM 

£5>;3 PE" PROCESSEUR DE DEPOS Q'OBJETj 
2578 PEH 

2389 DRO » 1 COSUE 4690 
2599 IF I > 8 THEN 2E29 
2609 IF I : 8 THEM 2248 
2619 GOTO 2220 

£6£0 IP 0(1) :■ 5? THEN 2658 

2638 C - C - 1 
26*8 0< I i - P 

2659 IF I « 3 THEN FO - 9 

2660 IF I ■ 11 THEN 2719 
2679 IF I - 14 THEM 27J8 
26S9 GOTO £350 

2699 PRINT "UOUS H'AUE2 PCS DE ' WI ' 

£738 GOTO 1948 

2710 IF P < 22 THEN 2879 

2720 IF P - 36 THEN 2379 

2739 IF F9 - 1 THEM 2370 

2748 GOTO 2350 

2758 PEN 

£768 PEn PROCESSEUR B'lNVENTAIRE 

2778 PEN 
2773 HONE 

2759 PRIHT -UOUS P.US2 (WEC* PRINT 
PRINT " UOUS ' INVERSE 
SPEED- 183 

£735 POP I ■ 1 TO 16 

2799 IF Oct) ; > 99 THEN £-;£0 

2609 COSUB 4428 

2919 PRINT BI:* * 

2829 NEXT I NOPnCL SPEED- 255 

2826 HONE 

£839 GOTO 13*0 

2850 PE" PROCESSEUR DE REPONiES 

2S69 PEtl 

2379 INVERSE PPIr.r -■ 0U-; '1 - E£ P-: I 

E PZC* DE PUISSANCE HIO'UKITE d ■•:■■:- ".:-: 

2589 FSInr "UOUS AUE2 PPOLE LA NORTH ' 

HORHAL 
2898 MTO 3388 
2908 INVERSE FPIH7 ■ ICI «L *OXVCE"E EST 

EXICE ET UOUS N'EN CftZ PLUS '* 

HORKAL 
2919 GOTO 3898 
2928 INVERSE PRINT "UNE UIOtENTE 

EXPLOSION ' : IE'.T de -:e PROOUIRE ■ 

HORNAL 
2939 COTO 3980 

29*0 INVERSE FPINT -UOUS ETEi n;?' 11 
• * NORMAL 
■939 GOTO 3888 

2960 [NUERSE PRINT "WOUS & ; 'E2 ETE EAL 
AVE Pip le LASER " hophal 
2978 GOTO 3033 
2939 INUEPSE PRINT -la BASE . 

UIENT DE SE DETPUIPE- 
2999 PRINT "PAP ONE EHOPME 
TE" NORMAL 

1999 POKE 32.0 POKE 3*.0 HOME 
3385 PRINT "UOUS N'AUEZ pas REUSSI - S 
URUIUREi "• IMUESSE PRINT PRINT 

PRINT TAB' l0>;-re«PS DE gURUIE*' r : 

: "MN" 

3010 FPINT " UOULEZ-UOUS ; - 

P""; ■ HOPMAL 

3929 GET D* 

3038 IF Dt - -0" THEN 378 

3835 IF Df ' > -N- THEN 3929 

30*0 RUM 

3950 PEM 

3369 PEM PL'Jte DE METEORITES 

3079 PEN 

3989 !F M' P. ! ■ > I I rHEH 

1889 SPEED-. 8 

3896 IF F2 > I '"Em SPEED" £33 

GOTO 1239 

3893 FOP PP - : 

3991 POKE - 34.0 HCOLflS 

• 3 NPLOT 43 181 HFL : ■' ■■ 

HPLOT «3. 182 HPLOT -E [82 M 
191 mplOT B£. 181 HPLOT 05.182 

MPLOT 87. il}£ MPLOT 115 101 I ■ 
•;. 191 hflo* 113. 182 kpl'K m ■ 

?«,?£ HCOLOR ■ 8 NPLOT 43.101 
HPLOT 16. !■)! HPLOT *3 , I 0-: HI 

. ...OP ■ 3 HPLOT 55 178 «•-';• *■•- 
[f8 "Plot TTi^i HPLOT 8S.I71 
HCOCOfl • •?■ ■■■' ■" n 181 ■'-' ■' 
31 HPLOT B3. 182 
3993 NCOLOP ■ J Ml 

NPLJT 71 . ]7* HPLOT 71 . 175 --" 

174 HCOLOR ■ 9 HPLOT 115. 181 
HPLOT 116. 131 "PLOT 113.102 
HPLOT 1 If. nil HCOLOR * 3 HI 
,.;•;: "8. HPLOT 183 17" 

30J* MCOUR ■ fl NPLOT 33.178 ro v: l? 
1 "FlOT 53-172 TO 38.178 "COLOR 
- 3 HPLOT 31 148 TO 36 1*>: ■' 
. 149 TO 36,1*5 HCOLOR • O Hf ■ 
» TO 71.174 HPLOT 79-175 TO 71.173 



■ - 
-. ■ 

■ ' 
■ 

-■-. - ■ 
17 MPLOT 1 

" ■ . . . - 

HPLOT 4) 171 • 
'II 

-■■.--. - ■ 
■ . 

■ - . ■ ■ 
HTAI £1 ■'".[ 1* 

1899 HONE 

■'.:<■> PRIM 

TE0R1TES I" 

II 18 PRIM 

E EN " r E-.: JH IE*. 

3113 SPEED" £55 

:::o »SUB «988 

3139 IF : £ "HEN 3800 

1148 ■ ; INI . "-E : )rtBINAI3 "■ ES* -It 

rEHAHT Vf-tZZ ' 

3159 F2 - I 

3169 GOTO 1238 

3178 PEM 

3138 PE" DOU* 

31 93 =EM 

3299 IF IMP, i: ££ '■ E 

3219 IF Fl - 1 THEM 1238 

T££^ PRINT 'LE BOOCLIER EST EM - .- ■: 

OUS ME P0UUE2 PAS PASSE* 

3239 GOS'JB 4989 

32*9 IP I 1 THEM 3288 

3259 PRIHT * OUi ETES DAMS LE -: 

3260 Fl « 1 
3279 GOTO 1239 

3288 PRIHT 'UOTRE TEHTATIUE ■:>...£ 

LAHENTABLEHENT 
3£r-; GOTO 1948 
3390 PEM 

3313 per PROCESSEUR LUHIERE Snaf; 

33£8 PEM 

3338 IF tUt .1 > 23 WEM L238 
3349 IF F4 > 1 THEN 1239 

3339 PPIMT -II EST DAMGEREU DE : - -■■-■' 
URER BANS L'OBSCURITE'" 

3369 GOSUE 4909 

3379 IF I ; > 4 TiEN £5*8 

3388 PRINT -LE SHAFT IAIGNE - - - 

ANT DAMS LA .'J-IEPE " 

3399 F* - 1 

3*39 GOTO 1230 

3418 PEM 

3428 PER PROCESSEUTi WAFT 

3*39 PEM 

3449 IF 0' 4 :■ . ■ 99 TH£ii 29*9 

3439 GOTO 1233 

3*>;8 PEr. 

3479 PEi PROCESSEUR LAZER BEAM 

3480 REM 

3499 IF K(P, I '• '• n 
3599 IF F3 • 1 THEM 1238 

3510 PRINT "IL 1 A UN LAZES TE-" 

PASSAGE" 

3529 PRINT -N-EST PAS POSSIBLE - E* A 

BEAM PRESENT' 

3539 GOSOB 4988 
3340 IF I ■ 1£ THEM 29S8 

3550 PRINT "LE BEAM EST I ■'E ■ 

BEFLECHl" 



3560 F 



- I 



3578 GOTO 1238 

33S0 REM 

3590 PEM PR0CE6SEV" 

3608 PEM 

3618 IF p ; ■• 29 THEN 670 

3628 IF F9 ■ I THEN e79 

3639 F? - 1 

3649 ffInT "U0U9 UEHEZ SAM* 

DPE COMPTE DEDETRAOUER LE DIS*081TlF 

PRSSURISATIONDE la Station SPATIAlE 

3663 GOTO 878 

36 78 PEH 

3688 PEM TEST POUR LA PUISSANCE 

3690 PEM 

3709 IF P i £■ THEN 2879 

3719 IF F9 - I THEM 2379 

3720 GOTO 753 
3739 PEH 

77*9 PEM DESACTIUEUR 

3758 PEM 

3769 !F F5 - I THEM 7.» 

3778 0<6- • 1* 

37-38 IK2.6) ■ M<2-7) 

3790 Mi I4r8> • «114,7) 

3800 Mi 14.4) • £ 

3818 c 5 - I 



3328 



789 



3330 PE" 

38*9 PEM EXPLOSION BOHIE 

3850 PEM 

3369 IF F7 • 3 THEM 

3878 GOTO 788 

3380 FE« 

3890 PE« DESACTIUATIOM ION! 

3989 PEM 

3910 if .;■ ■: ■;■ -mi a •: 

) f Then J9S8 
7?7e IF 0< ■' DS AND o- r 

;• P then 4488 

3922 IP •; • ■ 

PPINT ■ AUSS1 

» EOMEE ?''■>' l£ PhIPE - : J* : ■ 

35£5 IF ■). S) - Ft AMD 0-7> ■ P T( 

PPI«T ■ IL PAOT rtUSSI ■-'■ ■: 

E DESACTI- -UEUR POUR -■ I 

COTO 1049 

3923 IF 0. ■:■•■ AND 0' 7 - - 
PRINT • [L FAUT PREN8R1 

ts>" GOT.) 1849 

3533 F7 ■ I 
3948 PRIM! 

■ [UEE*" 
3550 G01 
3i-;o PRIM 
UEC - 

3579 COTO 1013 

J98g poj.ir ■;■. DE lE -"I 

PE * 

3999 GOTO 10*0 
*934 ppimt "UOUS ME p : ; ; ■ 
E D'ICI " 
4019 GOTO 1049 
*920 PEM 
4339 PEM COHlUSriBLE 

4348 PEM 

*959 IF F I 19 T*"EN *«09 

*969 IF0(9i ' :■ J? rHCrl 

*078 0< 9) ■ 98 

4999 PRINT -LE COMBUSTIBLE 

IUM> EST CHARGE. PRET POUR 
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LEHIT 
DU BLASE 



forme intention de garder ma 
femme a la maison. je sais qu'au 
Etats-Unis.lepaysdesextremit.es 
en tout genre, il existe une ligue 
de femmes divorcees par war-ga- 
mes . leurs ex-maris les delais- 
saient pour jouer a ces simula- 
tions qui font tant dadeptes ; m£- 
me en France, malgre la langue 
anglaise. nen ne rebutent ces be- 



tes qui laissent froidement torn- 
bertoutes ces ravigsantes creatu- 
res pour cet abominable petit 
"true" avec unclavierdessusMoi. 
pour la garder. je prefere done 
tous ces jeux de reflexes, que cer- 
tains Irouvent d'ailleurs totale- 
ment idiots, des celibataires sans 
doute.qui ne requiert absolument 
aucune parcelle de toute cette 
formidable matiere gnse que je 
possede. et que je fatigue toute la 
journee. Et puis, ma chene peut 
iouer avec moi, le nombre de fem- 
mes s'mteressant a la micro-infor- 
matique est suffisamment limite 
conne ca ; mes statistiques per- 
sonnels font etat de un pour 
cent. 
Passons aux jeux, tout d'abordj'ai 



une preference pour ZAXXON. fie 
plus il risque de devenir un best- 
seller . e'est evtdemment un jeu 
d'action mais ou I'interet com- 
mence avec la tn-dimension . le 
jeu se joue au "joyslick" (pardon, 
je crois que le mot francais doil 
etre manche a balai). je pilote un 
vaisseau spacial (bien sur, quelle 
question), et mon ombre est pro- 
jetee par jenesais quelle lunearti- 
ficielle sur le port e -vaisseau en- 
nemi que je dois survoler sans me 
faire descendre. J'ai meme le 
droit en prime a une attaque de 
vaisseaux ennemis de la pire es- 
pece. 

J'espere que vous possedez tous 
CHOPLIFTER, un combat sans 
merci ou je dois piloter un heli- 



coptere au dessus des lignes en- 
nemies pour aller chercher des 
personnalites en otage. Un jeu 
tres actuel 

II existe aussi ce jeu. SEAFOX, 
vingt mille lieues sous les mers. 
Un jeu. un peu oublie, CASTLE OF 
WOLFENSTEIN, un petit bon- 
homme extra, qui se defend con- 
tre des mechants fnses dans un 
chateau feodal avec unlabyrinthe 
el un fabuleux dedale de pieces. 
Toujours avec un petit bonhom- 
me. MINER 2049er se joue pen- 
dant des heures.jenepensais pas 
que le metier demineuretait si dif- 
ficile. 

A bientot, et peut-etrealasemai- 
ne prochaine. 

CLAUDIUS 




HEBDDG I C I EL 
5DFTURRE 





Le premier HEBDOGICIEL 
SOFTWARE pour APPLE II et 
He est livre avec un emballa- 
ge de disquette reutilisable 
et un livret d'utilisation, il 
comprend 12 logiciels : 

BASIC et D.O.S. FRANCAIS 
pour programmer en fran- 
cais sur APPLE avec ou sans 
extension memoire. C'est un 
APPLESOFT en francais dont 
les mots sont redefinissa- 
bles ce qui laisse la possibili- 
ty de personnaliser les ins- 
tructions et de creer votre 
propre langage basic en 
francais. Pour apprendre le 
basic ou pour I'enseigner 
(langage machine). 

PROG R AM M ATI ON STRUC- 

TUREE pour une program- 
mation simplifiee et clarifiee. 
Acces aux instructions 



WHILE WEND. REPEAT UN- 
TIL, IF THEN ELSE a I'aide de 
i'ampersand (&) (langage 
machine). 

MINI LOGO permet d'acce- 
der au graphisme tortue et 
aux procedures simples utili- 
sees par le langage LOGO. 
Les primitives sont adapta- 
bies. Ideal pour initier vos en- 
fants a LOGO. 

FONCTIONS SUPPLEMEN- 
TAIRES DE TRAITEMENT DE 
CHAINE, puissantes fonc- 
tions simplifiant la program- 
mation sur les chainesde ca- 
racteres. Plus de ASC 
(LEFTS(M1DS(AS.1.3))) illisi- 
ble. mais des fonctions clai- 
res comme GLR. recherche 
un groupe de lettres ou SCH, 
extraction de chaine avec 
critere d'arret alphanumeri- 



que ou MCH. modification de 
chaine par remplacement 
(langage machine). 

SAISIE FORMATEE DE DON- 
NEES, indispensable pour 
une bonne gestion d'ecran 
lors d'une saisie. Permet de 
stipuler le nombre et le type 
de caracteres ainsi que les 
differents caracteres de 
controle. (langage machi- 
ne). 

EDITEUR DE PROGRAM- 
MES pour resoudre tous les 
problemes de correction de 
lignes basic : insertion, com- 
pactage. suppression, re- 
cherche de mots. etc. (lan- 
gage machine). 

GESTION DE CARNET 
D'ADRESSES. une gestion 
de fichier modulaire simple 



et efficace avec presenta- 
tion des donnees sous forme 
de carte de visite. 

BISCRU, un jeu de reflexes et 
d'attention ou il faut eviter de 
laisser tomber les tartes du 
tapis roulant. Un graphisme 
elabore digne des jeux de 
cafe ! 

PARACHUTISTE un jeu d'ar- 
cade francais. Les paras 
comptent sur vous pour ne 
pas tomber a I'eau ! 

SOLITAIRE, un jeu classique 
au graphisme soigne. 

Et ENQUETE, mi-cluedo mi- 
mastermind, decouvrez I'as- 
sassin, I'arme, le mobile et le 
lieu du crime parmi une foule 
de suspect. 



BOM DE COMWANDE A DECOUPER OU RECOP1ER A ENVOYER A . 
SHIFT EDITIONS : 27. rue du GAL-FOY. 75008 PARIS 



Code PotUi 



PRIXUN1TAIRE 590 F 
contr* lemboursemem - ffi>"' ■■ 

Strang + 30 FD 
DATE 



LOGICIELS CANON 



Explorez les etonnantes possibilites de votre CANON 
X-07 avec les quelques 40 programmes reunis dans cet 
ouvrage Des programmes performants qui fonctionnent 
sur le X-07 de base (8 Ko) calculs sclentlflque* : opera- 
tions sur les matrices, conversion de coordonnees. 
racinesde polynomes. integration, interpolation, etc. Dm 
utilitalres : gestion de compte en banque. histogramme. 
impot, hard copy, trace de courbes. biorythmes. etc. Des 
jeux: loto, poker, ardoise magique. un peu d'EAO. un 
super jeu d'aventures : le Tresor du Gahon et trois "gros" 
programmes qui necessitent une carte d'extension 4 K : 
Astral. Tierce et Surfaces et Volumes. 



Canon 

ORDINATEUR INDIVIDUEL 




JEUX 
ET 

PROGRAMMES 







■ 1. EQUATION 2eme DEGRE 
: 2. INTEGRATION 
■3.RRCINES DE POLY NO HE 
:U0TRE CHOIX < 1/2.-3) ? 



m 



UN LIVRE SIGNS SHIFT EDITIONS ! en venle Chez les 
distributeurs CANON el par correspondance. 



3><: 



BON DE COMMANDE A DECOUPER OU RECOPIER 

A ENVOYER A: 
SHIFT EOITIONS : 27, rue du GAL-FOY, 75008 PARIS 



PRIX UNITA1RE: 95 F 
contre remboursemenl 

REGLEMENT JOINT 
cheque □ CCP a 



France 4- 20 F □, etranger -f 30 F D 

.OOF DATE 

SIGNATURE: 



Des programmes 
pour votre ORIC ! 

Votre ORIC 1 est gourmand ? Alimentez-le avec des program- 
mes originaux. simples, toujours passionnants et souvent sur- 
prenants. 

Du jeu de reflexion classique (Tours de Hanoi, Pendu, Color- 
mind, Awele, etc.) aux utilitaires performants (Generateur de 
Caracteres, Tri, Calendrier, Histogramme, etc.) en passant par 
les jeux de reflexes (Terroric, La Plume et le Poussin, Labyrin- 
the, etc.) les jeux d'attention (Dames, Rotations, Enigmes, Cof- 
fre-fort, La Reine. etc.) ou de hasard (Poker. Quinze-Vainc, etc.) 
et sans oublier les mathematiques (Fractions. Nombres Pre- 
miers. Traceur de Courbes. Multiprecision, etc.), Jeux et Pro- 
grammes pour ORIC 1 offre un large eventail de programmes 
aux couleurs, graphismes et sons tres soignes. Jeux et Pro- 
grammes pour votre ORIC 1 : une mine d'or pour votre ORIC 1 ! 
Cela vous coutera 155 francs Chez les bons revendeurs ou di- 
rectement avec le bon de commande ci-dessous. 



BON DE COMMANDE A DECOUPER OU RECOPIER A ENVOYER A : 
SHIFT EDITIONS : 27, rue du GENERAL-FOY, 75008 PARIS 

i ■ ■ ■ 


Arjreise 




CodePotta 
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PRIXUNITAIRE 

imbouraement • France i 20f Stranger + 30F[ 

REGLEMi m JOIN! ,00F DATE 

chequr,- CCP SIGNATURE 
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MICROPUCE 



MICROPUCEva vous aider a lutter 
contre I'angoisse si vous rtsquez 
deperdre votre emploi a cause de 
I'informatique (Robert CAPPA) 
Daniel PAGE vous fera faire con- 
naissancede To rdinateur propo- 
se", experience originale ou les 
preposes d'un bureau de poste 
utihsent des micro familiaux pour 
gerer les comptes clients et les 
instances. Vous saurez egale- 



ment "Comment fonctionne un sur Antenne 2 La gloire vous at- 
micro-ordinateur". (MICROPUCE tend, des la semaine prochaine.' 
surTFI.Samedi 17 Mars a 18 H 15). 

Dites done, les ATARISTES. MZis- 
tes, SPECTRUMistes et COMMO- 
DORE 64istes.je sais bien qu'ily a 
des problemes de distribution de 

vos materials, mais ce n'est peut 

^^™^^^^^™^^^^^^^^~" etre pas une raison pour vous on- 
GeorgeLECL£REd'Antenne2qui dormir A vos claviers, bande de 
vient s'ajouteraux deux concours faineants ! 
permanents. Une liste de prix 

epoustouflante, un contrat d'edi- Gerard CECCALDI 

tion pour la commercialisation 
des programmes retenus et la re- 
mise des recompenses en direct 



EDITO 



DessinesurPC1500parJean-Luc \r jjrivK"K>-:rTd"""- , 

MOREAU ^.->t^.wo,f ., i 




Dessine sur PC 1500 par B.C. - le 
nom n'etait pas mentionne dans 
la lettre 



SOLUTION DE L'HIPPOREBUS: 



I" I OR I - I Ml II 
Rl ,.' ■ ")vt 

■ i r i, il 1 1 CHRtl :<) : 

■i" i n ■ 
SO I ND 

,,,,,,,.,.,.,■. ,■:,,. 

,3 i .■ 



APOLL0 12 



19 Novembre 1969. 1 h 45 (heure du Cap Konnedy) 
\A>us etes Chartes COURAD. astronaute de la NASA et 
vous pilotez le modulo lunaire "INTREPID" actuellement 
en ir.tin d<- descendra vara i. « surfaca da la Lune 
Vous devez ramener des pieces de la sonde automatique 
"SURVEYOR 3" qui s'est pose a cet endroit 
Votre moteur (usee doit bruler conlinuellement car s'il 
s'eteint, il est impossible de le rallumer. Sa pouss^e peut 
vaner de 465 Kgf a 5225 legf selon que vous appuyez sur 
les touches <D a 9 de votre clavier Cette poussee restera 
constante jusqu'a ce que vous appuyez sur une touche 
differente comprise entre ©et 9. 
Pour pouvoir jouer sur les vitesses honzontales et vertica- 
les, vous pouvez incliner votre module grfice a la touche 
"v" qui feraaugmenter Tangle du module de 450 au"w" qui 
Ieferadiminuerde45 . Attention n'appuyez pas trop long- 
temps sur ces touches car I'inertie vous (era alors conti- 
nuer le mouvement amorce ! Vous devez done arriver a 
vous poser avec des vitesses verticales et horizontales les 
plus (aibles possibles (inferieurs a 1 nuls) sinon desavaries 
plus ou moins graves se produiront. L'angle du module 
doit etre deO* sinon e'est le crash irremediable. Si vous u ti- 
lisez votre carburant completement avant le "touch- 
down" votre ordinateur mettra en marche automatique- 
ment I'etage de remontee et le moteur mais la mission se- 
ra bien entendu completement ratee. Sa mission est con- 
sideree comme reussie si vous vous posez sans avaries 
graves a moins de 100 metres de SURVEYOR 3. Mais at- 
tention, de ne pas Tecraser. 

Vous pouvez interrompre le programme a tout moment 
pendant son execution en eteignant le CASIO FX 702 P 
Pour le redemarrer, (aire RUN 50. 
Bonne chance ! 

Robert TREGUIER 



... .. ... , 

iiir'.u ■ 'rn.' m i in modulo vors lo bas 
' doplncomont du modulo vors lo hunt 

(if |tijicom«nt du modulo vors la drone 

dtpUcamont du module vers la gauche 
■ chgnol.ml Surveyor osl a droito 

elin.not.int : Surveyor osl a gnuclte 
~Z unlit .ilt'ui . . •- T 1 1 r r ■ 

angle modulo O" 
/ anglo du module 315" \ 
( angle du module 270° -— 
< ongto du modulo 225° *" 
V .in, |le .lu mniluln IHO \ 
> angle du module 135" \ 
) angle du module 90" -* 
' angle du module A5° S 




Mel.intic C.nt)u»ant - Carburant restant 


289 


Direction do SURVEYOR clignotant 


< 


Altitude du module 


4152 


Sens du deplacement vertical 1 


Vitesse verticale du Module 


78 


Symbole d'onontalion du module 


- 


Distance de SURVEYOR 


3254 


Sens do depl.icement homontal 


< 


\\\%~ ■-.-■ ':. ■■■!,■ ..■!■(. il, du MiMiiI. 1 


28 



FX 702 P 



LIST te 

1 VUG ilfflll 58: PR 
1 "it" ftPOLLO 
12 mmVmWIF. 
m C.LESRflKO*" 

3 PS! -.FOR K=l 10 
188: NEXT X 

5 PRT "80NNE CHUN 
CE,CONBflO!»."«lt 
ODE IHMIEL BCTI 
VEC 



18 «!=''":«="<":Z 
»="=':Y»=V":H= 
1358= I=l:K=8 

II C=IM (8BNH288 
)tH88:PRT 'CAR 
8UfifWI:"UHI tl 
"I." 

1! R=IHT (KSIiIej 
)i9e3:PR! "HIT I 

raoE:";»;" «." 

13 NNT MM'1e3 



>»9eJ:PRT "OlST 

RHCEi-lDi" «." 
H H=-1HT (R8HI.2B 
!-88:PRl "VII.H 
OMZ.i'iAKHi' 
K/S" 
!5 V=-W (RBHt<28 
)-8J:P8T "VIT.V 
ERTI.:";BBS Vs" 

n/S" 

<8 PUT ""TRBIEBU 



■ 

8:111 

III I HIHII 
Mill ; liHll 

us n 
6eppi ca HsZll! 
ww.m 

KHiCSt I7IM1 

P.85 Hi 

re e»=key 

15 IF Cte THIN 588 
S8 IF El=" THEN 1 

38 
98 IF EI="V'iN=H»I 

iSSB 499:8010 1 

38 
188 IF ES=T*H-1 

:6S8 488I60T0 I 

M 

138 (="81234567S9- 
HI FOS 1=1 10 ie 
15B6I=R1M!,1):IF 
6I--EI IKES 138 
158 HEX! I 
188 MlMlK-IU 

=nee«c«i.63.'9. 

81 

:ee k*p<sin <k.« 

)/« 
218 V=¥iPiWS <HH5 

1/H-I.63 
228 D=t»Hifl=fltViPRT 

CSR 5!" "• 
238 IF V>8;8I=T:G 

010 258 
MM*"!" 
258 IF H)8iQt=")*:6 

010 278 
268 8t=V 



IN ; : ■■:: DC* H 

ui an ■-■ 

■■ 
; » 

EST ECI 

10 399 

::>. 8=iH! ins vifte 

=3 
HI ffl :60TO '34B* 
Mi) 

358 PR! "HIUHI5S8SE 
SEWSIIVKJCI) 
NE 8VH8IE" 
355 PR! "PfiS K BLE 

sses-:so!o «e 

368 PR! "QUEUES fl 
M1ES*,"V0K 5 
EVE2 REPDRER!" 

365 PR! "VMS BWZ 
E!E SEtO'JE'iSO! 
IB 

571 FH "BVMIES 6R 
FWES!".-RET008 
COTPROHIS'"" 

375 PR! " . 

sles:: 

2 ei espebe2 1 ': 

E* 
38B PR! "MOTEUR DE! 
ROITI'.-RETOUR 

IIFOSSIHI!" 

335 PR! "ftlflN BEAN 



■■-> an :>- : ■ ; 

V1VMT- 

eves ; 

K 

(>" 

410 IF S=-!iS= - 

438 zt°ni 

E! 

I"SU!' : 

P LOIN!*:60!0 5 

ie 
id mi tmm i 

S! EH VUE".": 
L1CIIS - : 

tJiSE 1 " ' 
ElfiSE HL1WP 

51? m "is mssiM 

ECHOUE 

eie: lio 



CATA-MARRANT 



l'i i i .in -i ni 



Contrairementacequesonnompourraitlaissercroire.ee 
programme n'est pas particulierement drole et n'a aucun 
rapport avec la mer. C"est en fait un programme Basic per- 
mettant d'obtenir le catalogue d'une disquette sous une 
forme plus attrayante que le catalogue normal. 

FranckCORNlQUET 

Caracteristiques : 

Lesnomsdesprogrammessontafficbespargroupededix (rfiglageen 
modifiant la variable PI). Chaque page porte un numoro 
Lesflechespermettentdesedeplacerdansuropageafindeseloction- 
ner un programme 

Les fleches permeltent de so dfiplacer dune page a lautre Un pro- 
gramme est lance avec la touche RETURN. 

Les programmes verrouilles ne sont pas visualises Ecrit en Basic, ce 
programme est modifiable relattvement lacilement lorsqu'on connait 
la structure du catalogue sur la disquette 
Remarque 

Pour obtenir la liste complete des (ichiers du cnfaloquo, il sutfit de sup- 
primer le tost IF Z<2 THEN 120 de la ligne 90 



RECt«RCHe DE VAB10F.LF* 








to 


PtD iv . 3311 IF I - : ti.| N 
1?0 


3» 


NAIT - 16M14, l.-flil'l AVI IK ■ 

1 1 1 ■ . it. "em. - iroi po>.e 


?n 


VARIABLE* - ■■ 


10O 


lipre9 - liiwcs - :.; - ntx. 




- 1A360.0! FOR AA - I TO 4t 


7T1 


IOCVAR - KEK 1104) • S36 * PEEK 




ir • 3). IF ; -. 120 iiti N L20 




EB i ■ '.-.>. M-. > i 




<103li PDKE LOCVAB * 2, 340t PO*:E 








RUT ATI II 




LOCVAR * 3.1*. POKE LOCVAft ♦ 


110 


NOMPRt - NOMPRE « UNOM« 








4.150 




HID* 1VARIABI.F*.L0C,3 


730 


IF CLAVIER - ?1 rrt N 


7B 


REM 




01 ! rVPl "NOMPRE) - J - t:0 




(MHN1I '. 






130 


Nf«l V 


240 


II ii AVII n - il rHBN JlOi M m 


, ..... ,., - 


130 


NEXT 8CCTEUR 




■ i HDM 






I3S 


MM 


330 


IF CLAVIER - 13 THEN 34Al REM 
RETURN ICH01 • 














7AO 


■ 


'■" 








?hl 


REM MONTFR OU PI ' 






NISt LH 


?70 












40 


FOR I - 7A6 TO 7«t READ Ri POKE 






MO 


VTAI> *i CAH - RAFli PRINT N 


43 


I.Rl NEXT 
REM 


140 


PAOEX - NOMDRE / Pit IF NOtiSA 
E > PAOCX • Pi THEN r-AftrX - 


m 


omui i I - 1 * 1 

IF 1 1 II mini AM - • ■< 


IN 


T1ALI9ATION 


130 
160 


VOLUME - P1KK IVOLUW1 


300 


■ 








• NowtRi , oo to mo 










10 


VTAD Xl CALL - OMl 1 Kltll N 


SO 


Din N0n«(i09),Pr>i(t09)imrra - 

777ir>IIFFER - 3fl400iC3 - RVTF) 
* llCD - RWT9 • i'tSTR - FJH1 




-.1* - " RfiALISB P 
AR CORNIOLIET f , LA n .il 


330 


Oli* llhl - 1 - I 

II 1 .* ■ 1 I Ml H I ,11.1 - 1 ,lli 

F - Il OOTO 1BO 




n * 3to - nurFFR • iiio - un 






•4,i 


FJOTQ aio 




nil.' • 2211 PI - 10 l VOLU«e * 


,„,, 


HOW. : PRINT -LIBRESi-ILlBRE 


343 


REM 


M> 


5LOI - PtD 1 nil-.".' i IAiD 
RIVE - IMtKK < - IHMIlll - 
Ox POKE CS.BLD1 ■ l&i POi>E C 
D.ORlVFU.inRFS - 4')MFA(1E - 




PRINT "PAOE i •lPAOE|-'"lPA 
NOIWAI i PRINT " VO 
LlfMEl -IVTXUWi PRINT !!li 
INVERSC 1 PRIN1 !•! NDRMM 1 


CHAROEMENT DES PROOF. 




HA 


CTLD* - CF*l« 141 








PWINT Il*i PRIN1 i PRIN1 


"... 


IF TVr«lll - 2 OR ii- 






!'■■ 


I - IFAOF 11 * Pli FOR J - 




IMT CH.MI "RUN-NOM 



i. inn ini i •■mi ii 



I (SFCIEUR - 13 TO I STEP 
POKE STR.SECTEURi CALL 
IOC - - 34 t FOR V - O 



• (II 

n i .. i . : ■ 

■i :■- i i ., 

II TYI I i I i - 4 i"IN PRINT C 

ii D«l 'tnUN'NOM*! I> 

INI I 1,1.1 U! PI il. 



CASSE-BRIQUE 



Qui a dit que le Canon X-07 ne cassait pas des briques ? 
Cette injustice est enfin reparee grace au programme sui- 
vant qui vous demontre que vdtre Canon est capable de 
tout, comme les plus grosses machines. 



Johann SIROUR 
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X-07 



TANK 



Savoir piloter un tank pa peut toujours servir, non ? 
Quoiqu'il en soit. vous allez pouvoir mettre vos talents a 
I'epreuveavec ce programme. Tousles commentaires uti- 
les sont inclus dans le programme. 
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I 'LA IOUSELUE 1 



[LLEUSfl S1TUEE- 
IELLE ET PABT • 
i LEOUEl CELLE-Ci 



C"flOUE BEPLACEMENT 



GRAPHISME ET 
MULTIPLICATIONS 



REPEAT 2 tftV M >f C99AV3: 

VA 'X - 2.5 I 'K Y * 4.5 * K 

REPEAT 4 CAV 2 * K G 963 

Vfl 'K + S.7 * >K Y * 5.5 * " 

G 30 W .5 1 K D 90 AV .5 * 

PU HOME PD 

END 

TO COEUR >K 
MAKE "y * ' Cl 
RRCRIGHT K * J. 3 45 
RRCLEFT K ^ 2 225 



K 90 AV .5 I 



Le programme logo de cette semaine comporte deux 
parties. Une partie permet de definir deux bibliotheques 
de procedures ; celle fournie par APPLE ("AIDS") et celle 
utilisee par I'auteur pour realiser le programme graphique 
de ia deuxieme partie. Cette deuxieme partie donne une 
serie de procedures graphiques utilisable avec un enfant 
de 6ans, ainsi qu'une procedure permettant de reviser les 
tables de multiplications. 

M. BODiN 



TO SflUVE HOMPAC* 
SAVE MOnPFttf 
END 



rrj CIRCLEL RADIUS 

ARCL1 .174532 * 'RADIUS 36 

END 

TO BRCR1 'STEP iTIHES 

REPEAT iTIHES tRT 3 FD 'STEP RT 53 

END 

10 CIRCLES RADIUS 

ARCR1 .174532.* 'RADIUS 36 

END 



TO CATALOGUE 

CATALOG 
END 

JQ PRJ ': 
.PRINTER 3 
END 

TO CD RAYON 
CIRCLER RAYON 
END 

TO CC PftVON 
CIRCLEL. RflVON 
END 



TO AV LONG 
FD LONG 
END 

TO D ANGLE 

PT AtiQLE 

END 

70 EC MESSAGE 

RR MESSAGE 
END 

TO AP LONG 

BK 'LONG 
END 

TO ECR1RE HESS) 
PR MESSAGE 
END 

ro VA A B 



TO ARRET 

PR [FIN DES CALCULS3 

THROW "KjPLEVEL 

END 

TO IMP 
.PRINTER 1 
END 

TO ECRAN 
.PRINTER 6 

END 

TO G ANGLE 

Li ANGLE 
EtlD 

TO PEPETE N r 

REPEAT M tPUN Tl 

END 

rO *P<"PICMT RADIUS DECREES 

fWCRl ,174932 * RADIUS DEGREES / 10 

Ii 2 /REMAINDER DEGREES 10 CSTORJ 

FO ,174532 * RADIUS - 20 REMAINDER DEGPEES IB 

t i REMAINDER DEGREES [0 

i Up 




TO PEADWURD 

OP FIRST RERDLIST 

END 

TO PU 

OP PEADWORD 

END 



TO GLIS3E K 

RU D 90 

RV 'K G 90 PD 

END 

TO CDS 

CLEARTEXT 

sf.tcupsop ce 03 

END 



VA 'X - J. 5 J 
RV 3 * <K 
VA X ♦ 3 * 
CERCLE 1.5 * 



f-Ri.LEFT K *- 2 225 
ARCPIGHT K 13.3 45 
PU HOME PI- 
END 

TO BOUGIE 

HLLtR K i < RANDOM 4) ♦ 2> 

FLEUR "RANDOM ?) <■ 2) ♦ I 

IWE "K K * 2 

IF ¥- < 11 CB0UCLE3 t THROW 

END 

TO FLEUR K 

REPEAT & CPEIALE * G 45 J 

G 135 RRCLEFT K * 20 90 

G 145 PETRLE K • 3 

SETM PU AV K • 28 PD 

END 

TO OISEAU K 

MAKE "K >K » 10 

REPEAT 2 CRRCRIGMT <¥■ 98 D 

END 

TO PETALE -K 

MAKE "K 'K * 10 

REPEAT 2 tARCRIGHT <K 90 D 

END 

TO HA I SON K 
MAKE •«. 'K * 10 



D 135 
RV *K - 
G 90 




T0PLEVEL3 

AV B 
G 90 



' * 1.5 * 
1.5 * 'K 



TO RRCLEFT RADIUS DECREES 
ftPCLI .174532 * RADIUS 'DECREES • 10 
[F ■ REMAINDER DECREES 10 ESTOP] 
FD .174532 > RADIUS ' 29 - REMAINDER 
■ LT REMAINDER DEGREES IB 
END 

TO ARCL RADIUS DEGREES 
RRCLEFT RADIUS DEGREES 
END 

rO RRCLI STEP TIMES 

REPEAT TIMES CLT 3 FD STEP LT S3 

END 



G 90 

RV l . k 
G 90 

AV4 1 'K 
VA V. * 5.5 I 



RV 3 » i 
D 96 

AV 2 I K 
G 90 

RV ■ ' I 

G 99 

RV .5 » '* 

■/h : ♦ .5 i > 

SETHEROINC »B 



END 

TO CflRPE CQTE 

FD COTE 

pi 90 

FD COTE 

RT 90 

FD COTE 

PT 90 

FD COTE 

PT 90 

END 

TO RFC A B 

REPEAT 36 CRECTANCLE 

END 

fO REC rflNGUE 'B A 



LOGO 



TU SOLE I L V 
MAKE "K * • IB 
REPEAT 3C LRU AV 



TU ETOILE f 

REPEAT 5 EflV K * 10 D 1443 

END 

TO FINTAB 

PR CON RECOMMENCE / NJ 

CHOISIS PC 

END 

TU CHOISIS 'C 

IF C ■ "0 [MULTIPLICATION] tTMROW "T0PLEVEL3 END 

END 

TO EFF 

SETCURSOR L0 4J PEPEftT 7 LPP CJ) 

END 

TO CHO s 

IF S - "0 CEFF LED -HI 

IE 8 - "N C THROW "T0RLEVEL3 

IF S - "T triULTlPLICATIOtO 

ECH0IX3 

END 



T'l i 



LUX 



N (i HOIH RWI 



-.Eli i.if--.op ri'J *'l SOMME PW 



SETCURSOR t0 93 

PR CON RECOMMENCE ■ 

CHO Pi 

END 

i.i SOMHE >S 

IF 8 ■ A 

PR 13 PR 13 

6ETI UR80R C8 -I 

■ i f iii"M RECOMMI M I 1 

END 

rO i hi N 

twt't "R FIRST I ISTfi 

MAKE "LISTE BF LISTE 

IF LISTE - I 1 IFItHMBJ 

■t- u 'it-- iik I IB -.| ■ pft m i,:i N €- ?3' 

■■■(■ rCURSOR C19 63 

SOMME RW 

END 

in M>ii riPI |i ATIOH 

MAKE "LISTE tl 3 5 4 2 U 7 9 6 103 

CI EART6XT 

.! n LIS LIP Mm II fV I iMhLt [-E [INI I IM [CHI I "N J 

f ii URSOR i.- : 223 PR CBODIN I «M l 
8E rCURSOR tl 4 J 

- PP HAhi I DE I - > I' "I- SOR I I0 43 
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DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
lormule. pourtanl nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Et avec des prix diqnes des pro- 
grammes que vous allez nous 
envoyer ! 

De plus, ce seront tes lecteurs 
eux-memes qui voteront pour 
leurs programmes preteres sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage. HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGtNAUXetFRANCAIS.Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistesvous dira comment 
I'ameltorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que tou tes les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement 

ART. 1 : HE8DOGICIEL organise 
de tacon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART. 2 Ce concours est ouvert a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise L'envoi d'un logiciel en 
K 7 ou disquelte accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
lournal constitue I'acte de can- 
didature 

ART 3: La redaction d'HEBDO- 
G1CIEL se reserve le droit de 
selectionner sur la base de la 
qualile et de Ibriginalile les logi- 
ciels qui sont publies dans le 
journal 

ART. 4 . Ce sont les lecteurs qui, 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
trimestriel 

ART. 5 Le prix alloue pour le 
concours mensuel sera remisau 
plus lard un mois apres la clo- 
ture du concours mensuel. 
ART 6. Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7; Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1. rue des Halles 75001 Pans 
ART. 8: HEBDOGICIEL se reser- 



ve le droit d'mlerrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART. 9: La participation au con- 
cours enlraine I'acceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 
FOY -75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenuleplus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour u n meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi, listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer ptu- 
sieurs programmes sur un meme 
support en Tindiquant sur votre 
Bon de Participation 

• N'oubliez pas et ceci est tres 
important, d'inscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM. votre nom, te nom du pro- 
gramme et!e materiel auquelil est 



destine. Nous pourrons ainsi re- 
perer laeilement les listings, une 
fois sortis de I'imprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance darriver ale charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui conceme les bons de 
participation, mettez votre adres- 
se com plete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "'petites 
annonces", "abonnement" et 
"programmes" specifiez sur vos 
enveloppes 1'objet de votre cour- 
rier. 



Ne nous envoyez plus denvelop- 
pes timbrees, mettez simplernent 
les timbres joints a votre envoi. 

• Expliquez les particulates de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons, evitez de nous envoyez 
les jeux suivants : BIORYTHMES, 
MASTERMIND. PENDU. TOUR DE 
HANOI. CALENDRIER. BATAILLE 
NAVALE, POKER, JACKPOT 
BOWLING. BLACK JACK. LABY- 
RINTHE, MEMORY SIMON, 421. 
OTHELLO. SOLITAIRE, LOTO. 



BON DE PARTICIPATION 



Nom: 

Pre nom : 

Age : Profession ; 

Adresse : 

N telephone : 

Nom du programme : 

Nom du materiel utilise ; 

declare etre I'auteur de ce programme qui n'est ni une imitation ni une 
copie d'un programme existant. Ce programme reste ma proprieie et 
j'autorise HEBDOGICIEL a le publier. La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire : 

(signature des parents pourles mineurs), 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne dun descri p tif detaille du matenel utilise, 
d'une notice d'utilisation du p rog ramme . Les supports des program- 
mes publies sont conserves , n'oubliez done pas d'en faire une copie. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (ED1- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



DDI OFFRE CINQ CASSETTES 
VIERGES AU MEILLEUR PRO- 
GRAMME DECH AGUE CATEGO- 



Le Club PPC-T offre au meilleur 
logiciel en langage FORTH sur 
HEOI LETT- PACKARD une adhe- 
sion gratuite a son club. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur livre"autour de la bou- 
cle" de Janick TA1LLANDIER. 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOG1THEOUE. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 

2 KO DE MEMOIRE, INTERFA- 
CES RS . 232. C. 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 
IL OFFRE EGALEMENT UN 
"CALC" ET UN "GRAPHE" POUR 
LE MEILLEUR PROGRAMME 
CANON. 




GAGNANT DU CONCOURS MENSUEL HEBDOGICIEL 

Olivier DEPRiESTER pour CALTAB sur PC 1500 gagne 
10.000 E 



GAGNANTS DE LA GAMME COMPLETE DE 
CASSETTES DE JEUX SUR FX 702P ET PC 1500 
OFFERTE PAR LOGI'STICK : 

Laurent DUMONT - 65000 TARBES, pour FLIPPER sur CA- 
SIO FX 702R 

Olivier DEPRIESTER - 59800 LILLE pour CALTAB sur PC 
1500. 



GAGNANT DU LIVRE "AUTOUR DE LA BOUCLE" DE 
JANICK TAILLANDIER - EDITIONS CAGIRE POUR LE 
MEILLEUR LOGICIEL SUR HP 41 

Frederic DARIN -31500TOULOUSE,pourDONJONDELA 
MORTsurHP41. 



GAGNANT DES DEUX CASSETTES OFFERTES PAR 
SQUIRELLE : 

Serge MOTTE - 61390 COUROMER, pour AUTO ECOLE 
surORIC. 



GAGNANTS DES UVRES "REGLE A CALCUL" ET DE 
CINQ CASSETTES VIERGES OFFERTES PAR DDI 

Olivier DEPRIESTER 59800 LILLE pour CALTAB sur 
PC 1500 

Frederic DARIN 31500 TOULOUSE pour DONJON DE LA 
MORTsurHP41. 

Serge MOTTE 61390 COURTOMER pour AUTO ECOLE 
surORIC. 

Laurent DUMONT 65000 TARBES pour FLIPPER sur CA- 
SIO FX 702 R 

Vincent GRENET 75017 PARIS pour EDITEUR DE PRO- 
GRAMME sur APPLE. 

Yves RADENNE 62200 BOULOGNE pour DESO 7 sur 
T07. 

Jean-Louis WANSART 4331 FLENALE BELGIOUE pour 
SCHTROUMPF sur COMMODORE 64. 
Bernard DUPIN 17000 LA ROCHELLEpourUTILITAIREsur 
CANON X 07. 



Olivier DEVUE 5570 BEAURAINE pour MUSIC MASTER 

sur SPECTRUM, 

Michel CORRENOZ 71570 LEYNESpourCOLORAMA sur 

Ti 99/4A Basic Simple. 

Patrick MICHEL 34290 SERVIAN pour WALKERS sur 

ZX81. 

J.-FdeLIGONDES82290LAVILLEDIEUpourSCRABBLE 

surTRS80. 

Philippe IM8ERT 13011 MARSEILLE pour MUNCH TI sur TI 

99/4A (Basic Etendu) Yann AUGER 60250 MOUX pour 

OTHELLOMsurMZ80 

Philippe LEFRANCOIS 50700 VALOGNESpourPAPYFAIT 

DE LA RESISTANCE sur VIC 20 Luc LEMOEL 95200 SAR- 

CELLES pour SIMPF sur MPF II 

Pascal PRIOUX 94340 JOINV1LLE pour MANOIR DU 

COMTEZORKsurPC1211 
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PETITES ANNONCES 
GRATUITES 




VENDS TI 99/4A dec. 83, SOUS 
GARANTIE + cordon magneto + 
manette jeux + K7 basic 1400 F. 
Monsieur TRIQUOIRE tel. 
19.32.(81} 30.55.23 (BELGIOUE) 

VENDS CANON X07 16K + cable 
cassette XC910 + adaptateur 
secteur pour X 07 AD 411 + livre 
"JEUX ET PROGRAMMES POUR 
CANON X07" + magneto, etat 
neuf vendu 2800 E Marc TOUR- 
TOULOU 37, avenue du Chateau 
92190 NEUDON tel. 534.05.95 
(apres 17 h) 

VENDS TI 99/4A -f module basic 
etendu + cable cassette + prise 
PERITEL + 2 numeros TI99/4A 
magazine + livre programmes Ba- 
sic Etendu, le tout 2000 F. Mon- 
sieur PINSON tel. 266.15.23 (hou- 
res bureau) 725.05.55 (domicile) 

VENDS ATARI 800 48 KO + 1 ma- 
gneto cassettes programme + 
3 cartouches de jeux + 2 joystick 
+ 1 cartouche basic + 1 cassette 
Mailing List + 4 manuels + 1 dic- 
lionnaire Equivalence Basic sous 
garantie encore 4 mois parfait 
Otat, Valour 9800 F vondu 5500 F 
Philippe d'AUGEROT tel. 
842.13.15 

ACHETE ecran moniteur COM- 
MODORE et extension memoiro 
pour VIC 20. Christophe GILDAS 
19, rue Dagoberl 92110 CLIGNY 
161 739.36 25 



VENDS TI 99/4A + interface SE- 
CAM + cordon magneto + manet- 
tes + module "TI INVADERS" + 
nombreux programmes sur livros 
achete NOVEMBRE 1983 3000 F 
vendu 2500 F (sous garantie) Eric 
SAUMARD tel. 552.23.96 (houres 
bureau) 

VENDS console de jou Video ATA- 
RI (sept 83) + 2cassettesdojeux 

(INVADERS, PAC MAN) 1000 F 
CHERCHE EXTENTED BASIC, 
modules et livres pour TI 99/4A 
faire Offre a Guy MAHE 23alloe H. 
Sellier 92800 PUTEAUX 

VENDS VIC 20 8K + adaptateur 
noir et blanc + moniteur langage 
machine + magneto + livros doc. 
complete et 50 logiciels sept. 83 
vendu 2800 F Vincent TARRAZ1 
10, bd de Lagaye, altitude 117 
13009 MARSEILLE tel. (91) 
75 38 86 (soir) 

VENDS TI 99/4A + manuels + bol- 
tiers PERITEL + adaptateur TV 
noir et blanc + cable magneto + 
module Basic Etondu + modulo 
CAR WARS + manottes de jeu + 
manuol du basic 6tondu + ma- 
nuol contonant 40 programmes + 
une cassette contonant une tron- 
taino do programmos Lo tout 
achotfi environ 4500 F Rovondu 
2000 F demandor Joan Marc nu 
(48)30.67 10 

Suite page 20 



ENQUETE 



PC 1211 



Vous fites charg6 de resoudre une histoire crimineile le 
plus rapidement possible. Face a vous, 9 suspects, dont 1 
estobligatoirement le meurtrier, et bien sur une victime, le 
malheureux GASTON... 

Eric FLAMENT 

Pour identifier ie meurtrier, il vous faut savoir que : 

Le meurtrier n'a pas d'alibi 

II connaissait la victime (GASTON) 

II se meut sur le lieu oil il se trouvait 

Evidemmerit, si les choses en restaient la. il serait facile de trouver le 

coupable. Mais voila. les autres suspects ne sont pas obliges d'avoir un 

alibi, et pourraient tres bien connaitre la victime... 

Par contre. vous etes surd'une chose : seul le meurtrier se meut sur le 

lieu oij il se trouvait 

Deuxieme complication, un deuxieme meurtre peut survenir an'impor- 

te quel moment de la parlie ! et c'est la oil les choses se compliquent 

ternblement. car si la victime detenait une information capitale, il vous 

sera pratiquement impossible de decouvrir le meurtrier. 

II est bien sOr, de votre devoir, de decouvrir les deux meurtriersqui peu- 

vent etre differents. ou etre ta meme personne. 

Ah ! j'allais oublier, I'affaire ne peut etre tout simplement qu'un suicide 

Pour resoudre cette enquete. qui peut sejouer a plusieurs. vous dispo- 

sez de deux questions par tour. Vous pouvezalors interroger ou reinter- 

roger un suspect Cesdeux questions posees, vous passezl'ordinateur 

au joueur suivant etc. . jusqu'a ce que I'enquete soit resolue. 

Vous pouvez choisir ces deux questions partni 5 qui sont : 

(21) - Oil etiez vous ?:le suspect vous dira oil iletait Seul le meurtrier 
peut mentir a cette question et a elte seule. 

(22) - Avez-vousun alibi sOr ? : Si le suspect repond parraffirmatif, il se- 
ra tout de suite innocente Bien entendu le meurtrier repondra non. 
(25) - Est-ce que vous connaissiez GASTON ? : Si le suspect repond 
non il est innocente Quant au meurtrier it repond par I'affirmative. 
(35) - L'avez-vous vu la oil vous etiez ? : Cette question est tres impor- 
tante mais d'un emploi delicat. En effet, elle va permettre de decouvrir 
qui a menti Pour cela il faut que le suspect que vous interrogezsoit sur 
le meme lieu que I'autre suspect (par exemple tous les 2au cinema, au 
cafe etc.). 



Lorsque vous poserez cette question lordinateur vous demandeia 
QUI ? et vous donnerez le numero de ('autre personne 
Si le suspect interroge repond par I'affirmative, vous pouvez etre sur 
que les deux suspects sont innocents 

Dans le cas contraire, vous etes sur que I'une des deux personnes est 
coupable 

Maintenant passons au mode d'emploi . Apres RUN. introduisez un 
nombreentre Oet 1 Quelques minutes sont necessaires pour generer 
I'enquete. Ce laps de temps ecoule le programme affiche oil GASTON 
est mort. II vous demandera ensuite quel suspect voulez-vous interro- 
ger. suivi du code de la question que vous voudriez lui poser (cette se- 
quence se repete deux fois puis vous passez a un autre suspect). 
Voila je pense que vous etes en mesure dejouer, il ne me resteplusqu'a 
vous donner les numeros des suspects et a vous souhaiter Bonne 
Chance I 

l-ALBERT.2-GUSTAVE.3-DUDULE.4-HENRI.5-MARCEl.6-HE- 
LENE. 7 - KATIE. 8 - SYLV1E. 9 - ALINE. 

II vous faudra avant tout enregistrer (puis les sauver) les noms. dans les 
memoires AS(1) a AS(9) et les lieux (Theatre. Cafe. Pare. Casino. Palace. 
Marche, Golf. Tennis. Cinema) en AS(11) a AS(19). 
Derniere information, vous pouvez modifier a loisir tous les noms mais 
vous pouvez aussi arreter le jeu quand vous voulez. Pour reprendre la 
parlie faire RUN14, De plus, si vous vous trompezdans ('introduction du 
nomdu suspect que vous vouIiez.il suffitde taper ENTER lorsque I'ordi- 
nateur affiche QUESTION. 



l:B££P 2: INPUT 
"NBRE EHTRE 

et is-;w 

3:A<40J=0:A<41 
>=10 

4:U=0:F0R X=0 
TO 2: GOSUB 3 
00:U=U+V*10" 
X:N£XT X 

7: FOR X=1T0 10 

8SGOSUB }00iS< 
X+26>-V»E2: 
GOSUB 300:<K 
X+26>=A<X+26 



>+V*El:G0SUB 
300:fi<X+26>= 
«<X+26)»V: 
NEXT X 

12:V=INT <U/E2> 

:BEEP l!Y=Yt 

10:PRINT "GA 

STON MORT AU 

"iA*<V) 

14:X»0:BEEP 2: 
INPUT "QUEL 
SUSPECT?" StW 
<rr>:Z=A<41) 
:IF A*<2)=A* 



<37)G0T0 14 
15:X=!v»l 
1$: IF A*<37>«AS 

<X>LET V=>0: 

GOTO 18 
17: IF XO10G0T0 

15 
18: IF <A<40)<>1 

GOTO 40 
19: IF <<Y<>2> 

LET Y=Y»1I 

BEEP 1: INPUT 

"QUESTION:"; 

A<37):G0T0 A 




22: 



(37) 

20:Y=0:G0T0 14 

2l:"0U ETIE"2= 
IHT <A(X+26) 
^E2)*10:BEEP 
ltPRINT "J"€ 
TAIS AU "tA* 
<2>:G0T0 19 
ALIBI S"Z> 
INT <U'E2>: 
IF X=23EEP 1 
:PRINT "NON, 
..DESOLE": 
GOTO 19 

2J:Z=<A<X+26>'1 
0»:Z=2-INT ( 
A<X-t26)--10): 
2=Z«10:IF Z< 
2BEEP l: 
PRINT "OUIiB 
IEN SUR": 
GOTO 19 

24: BEEP l: PRINT 
"NON...BES0L 
E":G0T0 19 
'C0NNAIS"2= 
INT <UVE2>: 
IF X'ZBEEP 1 
: PRINT "OUI 
UN PEU":G0T0 
19 

26,:GOSUB 300: IF 
V<2BEEP II 
PRINT "NON D 
ES0LE":G0T0 
19 

27: BEEP 1: PRINT 



25: 



"OUI UN PEU" 
:G0T0 19 

28: "EST CE 0" 
INPUT "OUI? 
"iZ:IF X=A(3 
9>BEEP l: 
PRINT "OUIiB 
IEN SUR": 
GOTO 19 

29: GOSUB 3O0UF 
V<4BEEP l: 
PRINT "0UI.8 
IEN SUR": 
GOTO 19 

30:BEEP 1:PRINT 
"NON DESOLE" 
:G0T0 19 

32: "ACCUSATION- 
BEEP 6: INPUT 
"QUEL HEURTR 
E"!Z:IF Z=2 
GOTO 38 

33: input "meurt 
rier^ -;z:y» 

INT (LU-E2): 

IF Z=YBEEP 4 
SPRINT "BRAV 
0...":G0T0 1 



34: BEEP 2:PRINT 
"DESOLE... PE 
RDU":Y=0: 
GOTO 19 
"L-AVEZ ■ 
BEEP l: INPUT 
"QUI?"iZ:IF 
Z=INT <U'E2> 



35 



THEN 37 

36: IF INT <A<X+ 
26VE2>=INT 
<A<X+26VE2> 
BEEP l:PRINT 
"OUI. BIEN SU 
R":G0T0 19 

37:BEEP 1:PRIHT 
■NON JE NE C 
ROIS PAS": 
GOTO 19 

38: INPUT "HEURT 
RIER? "!Z:IF 
Z=A<39)BEEP 
4:PRINT "BRA 
VO...- 

39: GOTO 34 

40: GOSUB 300: IF 
V>2G0T0 19 

41:G0SUB 300:A< 
39>»V:Z=V:AC 
40>=l:G0SUB 
300:A(41>=V: 
BEEP 2: PAUSE 
"2EME *URTR 
E":Y*INT <<A 
<26*Z>12> 

42:Y=Y*lO:PAUS£ 
"HORT BE "iA 
»<V>:PRINT - 
AU "tA$(Y> 

43:Y=0:GOTO 19 
3O0:U=U~-l !U=W- 
INT W:V=1NT 
<9*W>*1 
301: RETURN ■ 



HISTO 3D 



Ce programme permet de visualiser des resultats (ventes, 

notes, etc..) sous la forme d'un histogramme en trois 

dimensions. 

Le nombre de categories est limite a 6 (au moins 2). 

Thierry DOMBLIDES 

Le programme demarreavec RUN ou DEF"A". II taut introduire le titre de 
I'histogramrne, puis la valeur maximale alteinte parunecolonne. Apres 
avoir entre le nombre de colonnes et de rangees, entrez les legendes 
(date, mois, etc..) et les differentes donnees. 



?:GQT0 150 

18: :•,: 7' :GRflPH : 

SORGN : COLOR 

20:OATA -J, 0, 8,-! 

00, 158,-188,28 

0, -188,50, -188 

,8,-100,-1,8,5 

8, -130,50,-268 

30:DATA -1, 8, 8, - 1 

08, 0,-268 
80: RESTORE 
90:ON ERROR GOTO 

125 
1 88: READ /., f 
185: [F X<8READ X, Y 
:GLCURS0P CX, Y 
):GOT0 120 
•'.X,Y) 
120: GOTO 90 
125:CQL0P 3:A=15:B 



=GS 



b: 



: 



136:o=Q*l5:B=8*:5 
■■ ■ ■ 

!45:PETURN 

158: "A":CLEAR : 
WAIT 64:PRINT 
'•i»»t«TiHlsro. 
3D»»t*ui' 

16*3: BEEP 3, 188,64: 



Din HA(6):Din 
Hfl«C6)»16:DP=0 

1?0: INPUT ■TITRE D 
U ORftPHE: ";fl* 

! 75: COLOR 3 

1801LPRINT "**?■*«» 

198:L0=LEN fl*:PL= 
INT (C18-L0W 



M ■ 
210: TExY :COL0P 3: 
LPRJNT "Tt???t 

220: BEEP 2,58, 64 
238:CLS :U0IT 0: 
PRINT "UflLEUP 
rtax :": CURSOR 
12: INPUT n^x 
3 .: v-/!'.0GOrO 2 



"'.v. 



1 

260:ROTf>rE i:x-0:u 

0=8:Pf)S--n«x^l8 
2>0:FOP [aBIO 18 

, : . ■ ■ 

3>.*Lf*RiN1 



288:: 



=X+15:Ufl=Ufl*P 



AS 

290: NEXT 1 

295: CLS :BEEP 3,55 

, 6i:uair 

380: PRINT "Nbi-e Pa 

i i>res <.<.?)•■■■■ 

CURSOR 19: 

INPUT NO 
310: IF NO6G0T0 29 

5 
31i:CLS :INPUT "Nb 

r- de range's : ' 

312:G0SUB 'lEGENOE 

315:FOR IY=nO P(* 
320:E=150/fiflX:N=i: 

DX=5e/NO:DY-OX 

•8.625 
330:GOSUB "UPf 
340: COLOR I 
345:HftU>=iJ-?E 
350: LINE (8,-268)- 

(Hfl(I), -2605 
360;lInF (0, -28K.- 

',HO<:), -2S8J 
365:O1^0:D2=-288 
328:D)=D1'DX:D2^02 

-0Y 
3B0:LlNE (0), D2)-v 



D1*HAC]),02J 
I: LINE (HAt 
60J-CHAC1 



: =! 



400:L1NE -<HA(l)+0 

1,02) 
410:LlNE -<HO<I)'D 

1,02*20) 
420:lInE -(HAC1),- 

260) 
425:LIN£ (0, -260)- 

C0, -280) 
438:LJNE -(DX, -280 

-DY) 
435:GLCURS0R CD1-5 

, D2-15>-LPRINT 

HA*< 1 ) 
43?: GL CURSOR tDl*3 

0, D2+DYM0): 

CSI7.E 2:lPRInT 

SIR* IY 
448=0^1 

458: FOR I=2T0 NO 
455: N= I 

468:G0SUB -UAL- 
478:G-G*i:IF G>3 

LET G=8 
480: COLOR 6 
49B:HA<I)=UTE 
49JILINE tDl, D2)-( 

01*OX, 02-DY) 
492:Dl=0i*DX:D2-^D2 

-DY 
493=LlNE -CDl+HPCl 

),02>:L|NE -CD 

1+HocD-nx, a?* 

DY) 
435:GLCURSOR cni-2 

?DX'3, 02-15): 
CSJ2E klprin; 

HA« ( I ) 
588: IF HP.CIXHAU- 

DGOSUB ■■IN C - 
510: IF HAtI)>HACl- 

1) GOSUB "SUP" 
520: IF MO<l)=HA<I- 

1) GOSUB "*" 
GfrB^rxT I 
618:COLOR 8:L!nE ( 



PC 1500 



Dl, D2)-(D!,02- 
160) 
615:DR--1 

620:LiNE <e, D2-160 
)-<0, 02*20-* SO* 
DY):S: 
980: NEXT TY 
310: TEXT :lF 17: 
END 
1888: "UPL-:CLS 
1085: IF miGOTO 
11888 



on« No"*SIR* 



1028: CURSOR 2e: 
INPUT U 

1038: ]F U)MAX0R U 
<8CLS :G0I0 
1885 

1831: IF TYMGOTO 
1048 

1835.-CLS : INPUT - 
L • b« 1 I « co 1 o 
no*:";HA»CN) 

1840: RETURN 

?00p: "INF" 
I v : • /8T.625 

2887: IF HO', 1 1 )-H 
A(l>>^KLG0f0 
2810 

2888:G0T0 'TNF*' 

2818: IF 28<-0Y 

LINE <Dl*HA< 
I>,02)-<FJ1*M 
AU), 02*28): 
GOTO 2t^fi 

2l"?B:LlNf CD 1 HVH 
I),02)-<D1*H 
A<I), D2*0V>: 
GOTO 2860 

2830:LlNF ail*MAc 
I),D2*2B>-<I 
1-DX'Hf'vI J*2 
8*0.025, D7-M' 

?8flP:RETURN 



3880:-=" 

,sQ)4AND H 
P(I-2))HAa- 
DSOTO -=SUP 

30ie:LlNE <D1*HA( 
I),D2)-CDHM 
AC I), 02*28) 

3020:L1NE -(Dl-OX 
*M0CI), D2«0Y 
*28) 

3830: RETURN 

4888: -SUP- 

4818: IF N0)4G0T0 
6P00 

4020:LlNE CDI*MAC 
1 >, D2)-CD1*H 
0<I>, D2-28) 

4021:LINE -CDl-DX 
*HA(I),D2*DY 
• 28) 



4823:LJNE -CDl-DX 
• MA(I-1),02* 
OY) 

4824:LlNE (Dl-OX* 
HA(I),07*DY* 
28)-c01-DX*M 
A(J-l), 02*DY 
*20J 

I860: RE TURN 

5800: "INF*" 

581B:LINE CDI*HA( 
1),02)-(01*M 
ACI), 02*28) 

5820:lINE -<D1-DX 
•m.tcI-1 ),D2* 
DY*20-<HOCl- 
l) HOCI J)'0. 
625? 

5030: GOTO 2060 

6880: IF HACl-l)>- 
ha<I- 2JS0T0 
4028 

6Plf: IF MAUJJ'tiA 
(I-2)GOSUB " 
S" 



6838: GOTO 4068 

7008: "S" 

78]0:LINE <01*MAl 
I),D2)-CDI*H 
A(I), 02*28) 

-PJI'ILINE -CCl-OX 

•i<nc!),D2tDY 

*20) 
7830:LINE -(Dl-OX 

*MA(I),02*DY 

> 
7040:LlNE -(01-DX 

*HA(I-1),02* 

OY) 
?050:LINE (Dl-OX* 

HACI),02*DY* 

20)-(Dl-2?DX 

*MA',I-2), 02+ 

OY+28) 
7868: RE TURN 

Beeei "ss" 

8818:LlNE CDHHftC 
I),D2)-(D3+H 
A( I), 02*20) 

8820:LINt CDl-DX* 

Mfi(l),D7'HY) 

-CDl-DX*H(4Cl 

-1 ),02+DY) 

8025: IF OP^IGOTO 
8848 

6830:l.lNF (Dl-DX' 
HA(I), D2*IJY' 
-CDl-DX+HACi 
),D2*2*DY) 

B040:LINF (0! 'KO( 
1), U7+28)-(IJ 
l-OX'ttftci '•:■ 
,rj2*2TDY) 

B845: IF OP^Il-E T 
P^0:REIUR^ 

8050: RE TURN 

9000: "LEGf !-U\ ■- 

9010:CSI2E i: 
COLOR 2: 
ROIoTl 1 

9020:61 CURSOR (28 



9035 
9040 
S045 
9858 



8, -28): 
LPRJNT "LEGE 

NDf - 

COLOR 3: LINE 

(195, -1S)-<1 

95,-65) 

0D-17B 

FOR P^lTO RA 

erte 2. 64 

Ci.S :MOIT 0: 
PRINT "LEGEM 
OE No"+STR» 
P*": ■: CURSOR 
12: INPUT LE* 
COLOR II 
GLCURSOR (f)D 
, 15>:CSI2E 2 
:LPR1NT STR» 
P 

COLOR >: 
GLCURSOR (00 
,0):CSI2.E l: 
i PPJNl LE< 

un on ?'- 

NExT P 
RFTUWN 
"=SUP":OP*l 
GOSUB B010 
GOTO -<r! "•« 
CLS :UAIT 8 

blip 2, iee 

IF i f m Mm».:m 
))6LE1 PO*- 
LEFT* CMA»(N 
), 6)*-.": 
GOTO 1I01R 
P0»-MA»CN> 
PRINT 'Ran.: 
"*STM I-'' 
-■C(M:*'+PO^*'• 



1 1828: CURSOR 2fl! 

INPUT U 

II830:GOTO I8.JR 



9BH0 
9090 
9200 




HEBDOGIC1EL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 - 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM : 
PRENOM : 
ADRESSE : 
REGLEMENT JOINT : 



[ I CHEQUE 



QCCP 



MATERIEL UTILISE: 
CONSOLE : 
PERIPHERIQUES : 



^f^ Suite de ta page f 

en Septemhte seront disportibles 
I'urM* cpntr.He, son clavier el un 
lOQtciei de Basic Elendu de 16 K 
sur ROM pour envifon3000F Ega- 
lement dispombte en option, les 
nineties de jeu a intraroucje el 
des logioeis sous To>me de car 
touches enfichables A noter que 
les logioe's utittsent te syntrieli M 

CARACTERISTIQUES 
TECHNIQUES : 

- Scouleutsdebaseavecpossibi- 
hte de m&ange a Ptnflnl 

- 250 lignes de 320 pts 
80 000 pixels lous adressables 
pixel par pixel, en Scouleurs diffe- 
rentes 

- 2 rnicro-processeurs 8 bits mi- 
crocodes (TMS 7020 et 
TMS 7041). 

- Horloge de 4,9 Mhz. 

- 34 K de memoire vive dont 32 
utilisables pour la programma- 
tion. 

- 8 K de memoire morle pour le 
moniteur resident + 16 K sur ROM 
basic. 

- Memoire vive extensible a 290 K 
avecune unite detraitement addi- 
tionnelle. 

- Memoire morte extensible a 
32 K 

- Clavier 61 touches mobiles sim- 
ples et agreables d utilisation 
dont 4 touches editeur pleine pa- 
ge AZERTY accentue. 

- Alimentation integree a I'unite 
centrale avec (usible de protec- 
tion 

- Majuscules - Minuscules. 

- Synthase de la parole humaine 
integree a I'unite centrale. 

- Fonctionnement du clavier (jus- 
qua 8 m de distance - rebondisse- 
ment de linfra-rouge) 

- Utilisation des programmes 
sousformedemobulesROM(soli- 
dite. fiabilite des programmes). 

- Controleur de communication 
integre.typeRS232C.pretafonc- 
tionner en terminal de service ou 
de transmission. 

-Interface magnetophone cas- 
sette (prise DIN) utilisation possi- 
ble de tout lecteur enregistreur 
vendu dans le commerce. 

- Interface pouvant recevoir une 
memoire CMOS RAM (non volati- 
le) de 16 K (information conservee 
pendant 2 ans minimum). 
-Interface infra-rouge (couleur. 
decodeur) permettant I'utilisation 
a distance de 2 manettes infra- 
rouge. 



THE FRENCH COMPUTER 



leui rjfj ii.ifciiemtegfeet uu rlsont 
une ties jolie dhomme Plus tard. 
en Avril 85. des cartouches de 
RAM et 16 K enfichables isur un 
,iutre slot) permetiron! de sauve- 
garder des programmes sans lec- 
teur de cassettes, une interlace 
video lext pour se brancher sur 
Mimtetetle drive 



Bon sang, quileslinteressantcei 
ordmaleur Irancais. nen a voir 
avec les produits rebarbatifs que 
Ion nous a propose jusqu a pre 
sent SINCLAIR. APPLE et les au- 
tresn'ontqu'abiensetenir'Espe- 
rons qu'it n y aura ni probleme de 
Fiabilite ni rupture de stock ' CO- 
CORICO. ONE MORE TIME I 



Les logiciels commercialises en 
septembre 1984 : 

- Jeux d'adresse 

- Guppy (jeu de labyrmthe) 

- Wizord (guerre de lespace) 

- Virus 

- Tennis 

- Grand pnx (course automobile) 

- Doc Thorax (jeu de lespace en 
3 dimensions) 

- Jeux educatifs 

- Imagix (dessin assiste par ordi- 
nateur pour enfants a partir de 7 

ans) 

- Melodix (apprentissage de la 
musique) 

- Pro g rammes utilitaires 

- Exeltext [systeme d'edition et 
traitement de textes) 

- Exelcalc (systeme de traitement 
arithmetique. totalisateur. ba- 
lance carree) 






\J\S\0^ 



AOO- 




BASIC 

ASC. CHRS. HEXS, INSTR. LEFTS. 
LEN. MIDS, OCTS. RIGHTS. 
SPACES. STRS. STRINGS. VAL. 
ABS. ACS, A AND B. ASN, ATN. 
CLG, COS. ERL. ERR. EXP. INT, 
LOG. MAX. MIN. A MOD B, NOT B 
AORB.RND.SGN.SIN.SQR.TAN. 
A XOR B, FOR V-X TO Y, GOSUB 
GOTO. IFTHEN ELSE, ON ERROR 
GOTO. ON I GOSU8. ON I GOTO 
REPEAT.. UNTIL R. USR. WHILE. 
CLS. CLEAR, COLOR A.B. CONT. 
CURSOR. DATA. DEF FN, DIM. 
END. ERASE, FLASH. INVERSE, 
NORMAL. PEEK. POKE. POSC. 
POSL. READ. REM. RESTORE, 
STOP. SWAP. WAITI, INPUT, IN- 
PUTS, LINE INPUT, LSAVE. LOAD, 
PRINT, PRINT USING "chaine". 
LPRINT et LPR1NT USING. INKEYS. 
JOYO et JOYI, ECRAN, SERIAL. 
SET, RESET. POINT, HROFF. HRON. 
HRAT. TRACE. HRCLS. ICHAR. 
SPRITE, SET1ME. TIMES, MUSIC 
SPEAK ■ 




Avez-vous vu le Banc 
d'Essai Duriez ? 

des 20 micro-Ordinateurs 
domestiques ou porta tifs? 

~ A PACES SDR SHARP, Cc Blnc-d'Ess«ls-C«U- II est complctt par des 

Z4 COMMODORE, SIN- l°gue est un condense de appreciations e! des :t<:< 

CLAIR, ORIC, CASIO. caractcristiques techniques Durie/ sans complaisance. Et 

EPSON, THOMSON, etc... precises, sans delayagc publt- des conclusions pour guider 

citaire. voire achat. 

13 portables a Prix-Charter- Duriez : 



Sharp PC 150OI II 

lmpr,r« m r.«150 

PC 1S00 . CE ISO 



Ir.,.riot.RS23ItMroll+W 

PC 1351 

PC 11*3 

Pirlph. pour 13S1 ou 

Inftrroc* • itogni'D 



HP41CX 

tKKara*ob>*i 



HP/SC 



* 
* 

... * 

7B80 j. 
15*0 ^ 

1SS T 
81W * 



* 

* 
1 * 

ll 

= "^ Impnmant* rturnuqM . J950 1 

| * lr,!«rfo» TVUHF 3350 ^ 

* i, Co>loFX7D2P 1050 ■ 

C? •% lr,W oc ,mog«*oFA3 .. J60 1 

Duriez 
vend aussi 
par poste 

Avec le Banc-d'Essai Duriez 

(envoi centre 3 Timbres; gratuit 
au magasin). vous recevrez la liste 
complete des pm-ptanchcr 
Duriez, a jour, des machines, cas- 
settes, disquettes. livres, recueils 
dc programmes, jeux. logic iels 
d'affaires. 

Si vous commandcz par posie. 
vous avez 8 jours pour changer 
d'avis. Duriez vous remboursera 
sans vous poser de questions. 

Dune* est ouvert 132, Bd Si 
Germain, Paris 6' CSV Odeonjde 
.9 h 35 a 19 h sauf lundis. Machi- 
nes a ecrirc, papeteric, materiel 
dc bureau : 112, Bd St Germain. 
Ouvert lundi au samedt 9 h 30 - 
18 h 30. Fermc lundi ct samedi de 
13 a 14 h. 



tx aoz p 

PB1CO 

Intrfoc* r^agnfo F, 
i ... -j... pai; 
PS700 



Coedon mogri**o . . 
T'««v" i <*wt. o«. corcjon . 
Cwdon -opr-B. po'oJW* 

Cm* nu«4«S9n« 

Logklvlt FP300 
E.i»nwwCErL[ROM] 

Graph (coucw) 

Slotfthqw*! (co»*n*) 

fil« [d.iiju*-.! 

Mopw»I librofy (Inrt) 
Oll..fl!M 10 
Mfaiun SKo 



* 
* 
* 

* 

* 
* 

* 
* 
* 






X0 7. 



, | •: 



1170 

1650 
3700 
790 



TwJJ* BS732 • Cvdw 000 
Cordon «pn> por^W* 745 
CanoRdlw 405 



Mod*~ * nrdon 



* 
* 
* 

* 
* 
* 

* 
* 



Prix ou 1 " Mori 1 984. (n cat 
da (hongamsnt Ourloi voul 

□ v ll. ovont . . padilion . 



Bon de commande 

Catalogue Banc-d'essai 

Micros Duriez 

A adretseT iDecoupe, «>p»e ou phDtO 

coptel i Dyricr. 132, bd Si-Getnuin. ;j -y »- ■ 

P*ris6'.n«3T.mbresa2KKelnrci 

mui bejiKoiip plusl Duriej- > jvwnJia 

Ij dfnii<re l«te de pri\ i joui. 

Be phu, k Coramandc i Duriez to 

ariKzlirs mdiquib en mirge. 

Je pax par cti«uic ci (Cini. de 

1 ! potl el embaliiw (oil) 
le paierai i reeeption *%-tx mijor. de 
»F. 
(Raver un de$ 2 f ci-deinu). 



fai' 



■ OiteASunuiurc . 



if 



Vente Informations I 
Services | 




ImprLrnaste One 




OBIC ATMOS : l'ordinateur defMtif . 

3 versions a partir de 2 480 P 



VBHTE ET DEMOflTSTHATIOH : de 14 h a 21 h sauf lundi 
V1SM0 22. bd de Reuilly 75012 Paris Mitres : DaumeBtltl ou Dujommier. 
Parlrlng gratuit, Telephone ( 1 ) 1586.60. 10. 

VEHTE PAB COHEESPOHDAMCE : Uvraison dans tcute ia France. 
Cochez les articles que vous souhaitez recevoir sur le BON DE COMMANDE 
d-oootn i MSMO 68. rue Albert 75013 Parts 

accompagne de votre regiement 

Participation tralsde port rtd'embaLA^a *• 30P . Pun gratuit pour ■*- 3000?d'achata4ufS«rnaiii Pouruna 
wmmandfl da molna ds 20O) P. aouo r^uireu 




r.WrJ^.lk!«J.|IM 






KMur>vi;iii-«H 


I050l_ 






3*sa\ , 




1800 1 , 




?J95| 






■■ . -. ■ ■ ■ 


380 


. 


Conrwrttw oeur Bui d mwriaon 












Mats) 






.1 ■■! 1 , 


:K) 




CoiilMiPfnW 


too 




i ■ , 


;o 


_. 


CofUon Uori" - ■ ■ 


35 




Conton OH 3 Jx*5 (pour riugn«( 


50 




Mineftt * |tui 


130 


1 


lni»r(ie»i^Jn^r*.- | 


195 


. 


iiitrtjet . rn»viiecj*i««t 


KM 





MMrtM • ?mBi»l!«*|fui 


400 


__ 


K^MrgesCiSiieilOl 


100 


1 


Cant tntrtt-ttMM One 


370 




CwremhtOnc 


230 




RMcngeaussoapte 


100 




Ctrtt ffuJopout S enii(n 


350 


_ 


SfoUMv weal Orte 


I5Q 




., . . P- ,. 


isc 


, . 















K7 POUR ATMOS 






ETORICl 






K? Potce (AlmtH teuli Crtu 






•olrt K*ct Ht zvtr.mr. wh' 






rosjeui faoHOwnploi 






foxjon Ifuptt) 


120 




irjMn|np«l 


■ ■:: 




PROUOVISWO SKTJan 






One pour Mm (pioqivmrw flu 






■NdgnlM«M 






K7P0UR0HIC1 




One Hon 




One Coi)» (*f«mW«ji Dtm 






MitiMnl 


ISO 




OncOonc (Ajpnnj ■ pnaW 1 






pemwt li atrwoton 4i N" de M 






GtiWin tompw Dancar« V1SM0 






ls*/r*ijj'* On AWntffl) 






Tiawrmntftltilc 


200 




SttvTlOnMnM I8mt) 


120 




OncMutKlilpacmwl 


120 






100 




K7Pi«M>nt 


135 




OmlvKong 


100 




P*nlnlpOg'M^)n«MI 


100 





■WH-Mkli-IJiTrTf 


TTC 




.■.■:■■■■--- '., ■■ '.i: 
m louefm Jean Rtnauo 




mon« 




IIIERWCE^SM 


790 




CttUSE/S 


396 


.. 


■ MMittim 


;so 


, , 


r ;- ■■ '■ ■ 


120 




" 


..in 


. — 


K7JEUX-16 0U48K 






IV-Okrt 


tt 




Spao'nnder 


to 


... 


tadretk 


li 


_ 


umomis 


lb 


— 


Jir.7 


li 


. 


Irul Wjcfune 


It 




GokJMm* 


75 




5p«MiMn<l 


75 




fl.i ,.; ir. ! 


75 


■ 


K7 JEUX REFLEXION 
16 ET 48 K 






.'■ ■ ■■■ ■ ■• .. 


05 




0"Wo(i6auttrli 


rs 




*minU6 0'J«M 


S4 




IUWC5 |4SK) 


If; 




K7 EDUCATION 






iutii»cu4en 


M 




r*MonlW«u4 ■ 


M 




K7GESTI0N 






na*r(W| 


I2S 




Gettion Jc liclMrt 1 16 au tt Kl 


115 




Pir^jl i 1 |«m 


260 




Oevpac «tu-mWvct>tHiMn> 

deuHieKi 

|i ill ill 1 I'PfW 


■Ml 




;■■!.», ■;■■■■ i. 

un bolMr pavranl <ACO>pO'tr 
a'autm BrtHiiion'.i 


H5 

i.iii 

820 




INTfRMCtZPa Pmi» pro- 
gramme a clurgiif PBriW W 

...... ,. ... ...-...,.. . 

1 ■ 

i,,-,- tat - "■■ ■■;■■■■ time wm 
Mrgaa *eo« 


m 




IT a kJWlHi PjrMIt Ipov 
imoitmariM CP 10O A) fnrwjn 
uinwni lapM Gtnwawur m 

■ ■ 
I Med at n tacK fiaf jnit 14 cou- 


1095 





.. 


x»! 


■ , ■■•■- .■ :\ » - i 


,., 


Sctwr clawer typ* Pro m Kit 

llouCh»JtanHe^aufll 


m- 


Soctr daiw Pro moot* 


■- 


iru«w Pcnlnyi 
pour IV a«t PenW 


ISO 




-donWMrl 






V?00l 


230 


. 


. . 


M 




Oair«r*0S 


140 


... 


ChIhhkx 


350 




loi-rtxr 'M jnrttt de inn 


250 




Uinc[l«tj»inii 


120 




fjrlrSF S 


390 




■ U 


192 




Coooeclfw FtmMe 


40 




-■■■', 


180 




CtoH bnpiwuntt (ip i M * 


i;n 




■ . 


l:„ 




K7GESTI0N-16K 

■■■■ ' ■ ■ '■:'■ ■ ■ ■■ ' ■ 


95 




VU-Rhj 


110 




Mr-C* 


un 




- , ... . , ■ 


150 




K7JEUX-16K 






■ .' i.:. ..' 


■IS 




PatrouM at 1 etpacc 


65 




Pftjnlom iPxrnln Irmcattl 


Ml 




Stock ra< iCowu M •ertixe! 


n 




k*nMrt 


a 




Vannouut* Un 


75 




GMp 


,■'. 




r ■ ■.- ■ 


85 




rnicwnmcie 


89 




Saltan 


rs 




OMto 


■IV 




CdkM 


95 




kgamnoni 


89 




Amn 


,>.; 




K7 UTILITAIRES -16K 






AiwriWfvn »i1tc 


;■< 




>■ ■ . 


a 




■ . . ■■. ■ 


75 




toen K.I n 


90 




;»in 


75 




fttHoad Wofinor jttouMK) 


rs 




PACK VIS M0 






■ ■ 

i ' ; 


■ 


■JbWJvn r't*i.«an*t 


^H 1 



I'RINOM 



Contre remboursemenl { t 60 F) 

REGLEMENTJ0INT(i 30 F) (CMque-CCP ManiMli 



M0NIANT T0IAL DE LACOMMANDI 
DATE SIGNAIUIII 



OVNI SOIT QUI 
MAL Y PENSE ! 



Essayez avec votre OVNI de deposer les containers ne- 
cessatres a la survie de votre expedition surcette planete. 
Attention un vaisseau extra-terrestre essaye de vous en 
empdcher avec force laser ! 

Deja tres interessant contre I'ordinateur, le jeu devient 
passionnant avec deux joysticks et deux joueurs. A vos 
boutons de laser ! 



Christian DOCAO 



I :.■ 


to aooo:»EH presentation 


i " 


•o:by-o:Cy-o;oy-o:ey.o 




I:9C0RE*0 


K ■ 






F 1-2 THEN GOSUS 2200 


13 SETCOLOR 1.4,3 


20 x-00:y-94'2: j*si:k-30 


n sen ■•■■•• •«•• » • 


M 


OR P-O TO 230 


30 S-STICK<0> 




F S-13 THEN OOSUB lOO;R£H INHOBILE 


«3 


F S-O THCN OOSUB 30OIBEM HAUT DROITE 


so 


f S-14 THEN OOSUS 160IREM HAUT 


n 


F S-3 THEN OOSUB 330:B£H BAS DR01TE 








F S-V THEN OOSUB 4001REM BAS OAUCHE 




F S"7 THEN OOSUB 240IREH DROITE 




F S-10 THEN OOSUB 430:REH HAUT OAUCHE 


M 


F S-II Then OOSUB 2701REM Gauche 


S3 


T STRIOtOI-0 THEN OOSUB lOOOIREH T1R 




F 1-1 THEM OOSUS 1200 








93 OOTO 3OO0:RE" 0»"E OVER 


9j BiH +t, HOUVEHENT DE LA CROIX • •* 


100 






IF A-l THEN COLOR 3 


120 


IF A-Z Th6M COLOR O 




PLOT X-3,Y:DRAUT0 x»3,y:plot x,y-3:drauto 




NEXT A: RETURN 




Y-Y-3 




IF Y<-4 THEM Y-A 


1 JO 


OOSUB too 








Y-Y*3 


210 


IF Y>-8? THEN *«89 




OOSUB 1O0 


EM 


RETURN 


2*0 


X«X»3:IF X>-I34 THEN *-134 


290 


OOSUS 100 


24C 


RETURN 



) COLOR 3! OOSUB 



2022 t 

2090 r 



RECOHHENCE " 



,, *0N RECOHHENCE 



I 14, 3:? Bft.'AU REVOIR. . 
TO lOOINEXT f:end 
I DESSIN PISTES ******* 



t90 BOBUI i 




>13* THEN X-134 



I IF 



j.;o cosus loo 

3*0 RETURN 

330 X-X«31Y-Y«3 

SAO IF XJ-134 THEN ) 

3SO OOSUB 10O 

390 RETURN 

aoo x-x-3:r-Y«3 






490 RETURN 



107'/ MET B:»ETC0L0B 1,2,2 

1060 IP XffZ AND Xj-J-1 AND r<-K«3 AND YJ-X-3 THEN SCORE-SCORE H : GGSUI 

I1O0 GOSUB 3JOO:REN • ••• TEST POUR LES PAOUETS BE RAW I T A1LLEKENT •• 



1120 IF *«t THEN COLOR 2 

1»30 IF «-Z 'HEM COLOR O 

[ ] 40 PLO' *, ' - 3: DRAUTO X,Y-3:PL0T X-4 , Y 1 DRAUTO X«4,Y:PL0T X-3. 

:PLOT r-S, Y'S'.DPAUTO X*3,Y-3 

1150 IF A-l THEN COO H- [ 80 10 20 STEP -2:SOUN0 0, H , ft, 1 3 : NEXT I 

1133 SOUND O, 0,0,0 

::.,', Ni'i AicrjL'iR o:COSUB I 430: J-81 :k-io:RETuBN 

I|y9 REN NVT DE L'OVMl AVEC 1 JO'JEUR 



1430 



r I HMD ( 
(HEM J-INT IRHDI 



n»34i *a:"-K.2:IF K<-87 Then T-2:k-6'. 
l(#43l «33:K-K-4: IF K<-6 THEN r-3:«-« 
.X45I •33:K-K«3!IF KJ-S* THEM T-4;K-l 

,i t34i t ioo:***-*; IF K<-4 THEN r»l!H( 




I MANETTE N.2 t 



)3-)0 V-ST1CK1I 



1320 I 



■..< ., . 



1330 IF 



:•)* 1310 

VII THEN OOSUS 1340 
1390 It W-13 riiEM COLOB 3:&05IJB 1450 
|36'j IF V-6 '"CM OOSUB I3AO 
1370 IF V>S IHEN OOSUB IftOO 
1380 IF ■!-' THEN OOSUB 1*30 
1382 IF V-10 THEN OO-SUB l.-'I'J 
IJ«3 IF AT)0 THEN OOSUB 2740 
.■:..■ 
'/ THEN OOSUS 2330 
13BS IF OT>0 IHEN OOSUB 2*10 
1309 IF EriO THEN OOSUB 230O 

■ ■ 
1399 »EH •••• «'J f DE L'OVIII '"■"■"' 



1-120 COLOR 3I00SUB 14S0!PE 
1430 PLOI J-3.h:DP«uto J-l 
iPLOl J-3,K'llBRAUT0 )• '..■ 
I4O0 PLOT J-2,K-2:0RA«tO 1 
,K«4IPL0T J-4.H-4: DRAU10 J 
1470 PLOT 3-4,K.4:DBAU10 J 
I4BO COLOR OIOOSUB 1430 
1490 COLOR IIK««4MP "J-'. 



a* 



•IPLOT J.S.KIDRAUTO 



-2,Kt2l DRAUT'I !•*.» 



I .1 <]. " -I-.' ■ 1 



VITAILLEHENT i 



• • ET lESrs D'ATIfRRISI 
I AND EYOO THEM BFTURW 



2240 If BY-O 1HEH B'-flBi 

2230 IF CY.O THEN CX-3IC1 

2240 IF DY-0 IHEN DX-JIOI 

2270 IF EY-0 THEM E'-J:(i 

23O0 COLOR OlOOSUB 2400 
2320 EY.CY.Z 



>s:gosub 7320:beiurm 
fOiOOSUB 24io:nElu»N 
i-BIOOSUB 2300IBETURN 



.-93 THEN HAV-RAU-2:0OT0 2900 
IAU-RAW30I0OT0 2 



• AND DY-93 1HCN RAV-I 



):ooro 29oo 



I-.0O10 3000 
■lOIOOTO 3O0C 



• 2:d«awio (.• 



2300 COLOR 3 
2310 PLOT DX-1 
-2,DY-2!PL0T I 



1 0X.2,DY-2:DRAUTO DX«2,DY»21DRAWTO DX-2,0Y«2:DRAwIO DX 



2340 IF CX>12 AND CX<38 AND CY>-93 THEN RAU-0AU«2 : SOTO 3100 

23SO IF CX>72 AND CX<7B AND CY1-93 THEN RAV-RAV.30: OOTO 3100 

2360 IF CX-89 AND CY>-93 THEN BAV-RAV"30: OOTO 3100 

2370 IF CX>I1I AND CX<139 AND CY>-93 THEN RAV-RAU. 10 : OOTO 3100 



:-2,CYt2!D«AUT0 CX 



'•30I0OT0 3170 

1170 

tAUMOlGOTO 3170 



• ;DRAUTO »/•?, 



2899 REM »*» DE£ 

2900 FOR HUS-0 1 



I : COLOR 2I00SUB 2960;S0UND 0,72,10,10:FOR JOI-0 TO 40INEXT JO 

I0LOR 0: GOSUB 2960 



2940 EY-0:RETURN 
2940 PLOT EX.EYIDRAU! 
3000 FOR MUS-0 TO 3 
3010 SETCOLOR 1,2,141 

3030 NEXT MUSISETCOLI 
3040 DY-O: RETURN 
303O PLOT DX.DYIDRAU' 
3100 FOR HUS-0 TO 3 



IOLOR 2:0OSUB 3030:S0UMD O, 72, 1 , 1 0! FOR 301-0 TO ' 

.OR OIOOSUB 303O 
I 1,2,4 

j dx.dy-4:dra«to dx«4.oy-2:drauto dx,dy-i:reiurm 



3110 



i:color 2:oosua 31ao:e 



I o,?2,10.10:FOR JOI-0 TO ' 



i cy»o:r( 



3180 SETCOLOR 1 , 2 , 1 4 : COLOR 2I0OSUB 322( 

I 

3190 SOUND 0,0,0,0:COLOR 0:O0SUB 3220 

3200 NEXT NUSISETCOLOR 1,2,4 

3210 BY-OIRETURM 

3220 PLOT BX.BYiORAUTO BX , BY-4 : DRAUTO ( 

3230 FOB HUS-0 TO 3 

3210 SETCOLOR 1,2,14:COLOR 2:0OSUB 32801B0UND O , 72 , 10, 10: FOR JOI-0 TO 40INEX' 



iy-2:drauto bx,by-i:return 






J AY-O: RETURN 



i 3280 



-DY-2 THEN OOTO 4300 



4O00 COLOR 2I0OSUB 4O301F0R I-SO TO 179 STER 2!S0UMD 


o, 


.» 


IBlNBK 


' 


SOUND 0,0,0 


4O10 COLOR OIOOSUB 4030L00SUB 2H40: AY-O: RE TURN 
403O PLOT AX-3,AY:0RAUTO AX<3,AY;PL0T ax,ay-2:dbauto 
TO AX«2, AY«2:PL0T AK-2.AY'?: DRAUTO AX »2, AY -2 : RE TURN 
4I0O COLOR 21 OOSUS 4130:F0B T-30 TO 199 STEP 2:SOUND 

4110 COLOR OIOOSUB 413OIG0SUB 2730: BY-0 i RE TURN 
4130 PLOT BX-3.BY:DBAurO 8X*3,BY:PL0T BX, BY -2: DRAUTO 
TO BX*2,B'<2:PL0T By-2,BY'2:DRAUT0 BX* 2 , BY- 2 : RETURN 
4200 COLOR ZIGOSUfi 4230IF0R T-30 TO 199 STEP 2IS0UND 

4210 COLOR 0:OOBUB 4230:OOSUB 2420! CY-O! RETURN 

4230 PLOI CX-S ( CViDRAw"TO CX'3,CY:PL0T CX.CY-2: I1BAUIO 

TO CX«2,CY'2:PLOT C/-2,CY«2: DRAUTO CX*2,CY-2IREIURN 

4300 COLOR 2100SUB 4330IF0R T-30 TO 199 STEP 2! SOUND 

pO 

4310 COLOR Dt OOSUB 4 390 1 OOSUI 23io: m-0:RETURN 

43SO PLOT DX-3,DY:DRAUT0 DX«3,Dy:PL0I dx,oy-2:ubauto 

IO DX'2, DY«2: PLOT DX-2, DY>2: DRAUTO DX>2, OY- 21 RET URN 

4400 color 2:ooBua 443o:for t-3o to 199 step 2:sound 

4410 COLOR OIOOSUB 4450I00SUB 2400! EY-0 : RE TURN 

4430 plot ex-s,ey:drauto EX«3,EY:PL0T EX,EY-2:DRAUTO 

TO EX'2.EY-21PL0T EX-2.EY-2: DRAUTO ■X<2,EY-2:RETURN 


« 


., 


2: PLOT 


« 


SOUND 0,0,0 


.X 


.V 


13INEX 


„ 


SOUND 0,0,0 


« 


- 


2IPL0T 

1 St NIX 


1 


2.CY-21DRAU 

SOUND 0,0,0 


OX 


" 


2IPL0T 

lSINEX 


DM 


2,DY-2!0»AU 
SOUND 0.0,0 


„ 


6Y 


2:PL0T 


1 • 


,'.i . ,-: iii-nu 



3023 FOR U«0 TO 29 

■■. - . nil ur 

3030 BOUND 0,UT, 10, I": 1 OR '" 

3039 REM •••• FIN Aff IC.IAOI. I 

3040 OPAPHICS 2> 14 

3043 IF I-l THEN OOTO 3100 



304* 






3030 POSITION 2,21' SAi'ovni* »li»tlumr* 

3040 POSITION 2,31' SAISCORCI* • 20 POINT! 

3043 POSITION !>,5:v S41SCORKV20I ' POINTS.' 

3070 POSITION »,•!» »/.i t .v.i»i I l-««ii»: ■ 

3000 POBITION 3,»l? BftlRAVI " .KO* 

3083 FOB P0»0 TO 700IN1XT PO 

3090 OOTO 2080 



-,!."> IT,'.] I ll.ll I 

3110 POSITION I 

-.!,.,, , ,iu >■<,-', < 

-. | ;.., -.11 I .J ."III" 

ettf srtM ■••■•■ 

,,,..,r, M.»l'l(IC • 



&.a:> ■ft.acoRE 

,„l ,i ntni H. II •' 






4070 RBH SUCK BOOKBU IB" 

4023 fox iuctc4-o ro a 

i.i '•!• «B 
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MAD MAX 



Lancez-vous sur la piste irtfestee de voitures-suicides en- 

nemies. Comme leur nom I'indique. elles sont suicidai- 

res... Mefiez-vous ! 

A votre joystick ! (numero 1 en I'occurence). 

J'atlais oublier : vous etes equipe de missiles (!) 

PPALAUetR. TEISSIER 



ii fall • 

110 CALL SPRITE(*l,77,l3.I.21 
I -1 it IM.T7, 13.93. I 

i i maohfyOi 

140 FOR A-l ID 3 



Remarques mi le deroulement du jeu 

■■■ii elevoe. une collision vous fera perdre 500 points. A gran- 
da vlteMe, vous perdre* 1500 points. 

SI vous desinlegrez une voiture, cela vous rapportera un bonus de 500 
points Le temps se meltra a clignoter et reprendra son cours normal, 
apros u no interruption de 35 s. environ Une nouvelie voiture apparaitra 
afora el lojeu reprendra son cours. 
Tiendrez-vous les 3 minutes de jeu ? 
Remarques sur le programme ; 

Si vous trouvez que la gestion des collisions de lutins n'est pas assez 
precise, sachez que ceci est du.d'une pari a la bonne precision du joys- 
tick (il y a plusieurs CALL JOYST dans le programme) et d'aulre part £ 
I'affiChage permanent de la Vitesse, du score et du temps (ceci com 
pense cela). 



130 l 



< 01, 02 



CAI L POSITION 




ii NEXT A 
. 10) DEEP 1 



mi 10N(*A,D1. 

. 
I TO ne«t a 

IBO CALL LOCATE [•! ,73. 120,«2,7S. 140.13, 79, 1&0> 
190 DATA 19,24,13.0, 15, -1ft 
2O0 FOR DE"7 TO I .' 
210 CALL CHARI47. 

R1TE<«DE,4S, INTtP*€D»131 ►3,194,11 

-. <r oe 

2*0 SP-7 

230 FOR TOUR-1 

J40 FOR R-0 to 340 STEP 13 

- 
• I H90*S1N<A> *. 7 
W Y»140-80*COSCAl 

■.OO CALL SOUMH-200,1 ■ CALL LOCATEH 

HEN SP-7 
310 NEXT R 

(1 TOUR 

il r-jt: it A 
340 FOR A-l TO 12 :: CALL DELSPRI IE ( BA> : : FOR B- 1 TO 35 ! 
SCREENC&lll FOR A-0 TO 14 :s CALL COLORIA, 12, 1 ) : 
360 DISPLAY AT(8.-Ji:-VOULEZ VOUS DES EXPLICATIONS" :: ACC 
ATEl"OUIN-)SIZEI3> :R» 

370 IF R*O"0Ul" AND R»< >-NON" THEN 360 
ISO IF R4--0UI* THEN S90 ELSE 930 
390 CALL CLEAR :t DISPLAY AT 1 1 , 10) i ""M AD MAX" 

ILOTE DE FORMULE l.VQUS DE-VEZ EVOLUER SUR ONE PISTE"* 
410 CALL PRlS."OU CIRCULENT LES VQ(TURES ENNEMIES.OUI N'ONT POUR SEUL BUT 

06 VOUS DETRUIRE") 
420 CALL PR(9,-RASSUREZ VDUS.VOUS N'ETES PAS 5ANS DEFENSE , CAR VOTRE FORMULE 1 

EST EOUIPEE DE MISSILES Tl»/8"l 
430 CALt PRCI4,"ILS QNT POUR EFFET DE DESIN-TEGRER LES VOITURES ENNEMIES QUI DIS 
PARAITRONT PENDANT 33 SECONDES") 
440 CALL PR»19,-ATT£NTI0N:UTILISATI0N POSSI-BLE AVEC UNE VITESSE SUPE- RIEURE A 

430 CALL PRESS 

460 CALL HCHAR!2. I,'?, 714.) 

470 CALL PR(4.~LA DUREE DU JEU EST LIMITEE A 3 MN") 

400 call PR <B, "REMARQUE: PUIS VOUS ALLEZ VI-TE PLUS VOUS MAROUEZ DE PTS") 

490 CALL PRESS 

300 CALL HCHAR<2, 1.32,736) 

SIO CALL PR( 10, "BONNE CHANCE !!!!"! 

S20 CALL PRESS 

330 CALL CLEAR :: CALL PR (20. "VERIF IER OUE 'ALPHA LOCK' EST EN POSITION HAU 

TE-] 



NEXT A n CALL PRESS :: CALL < 



FOP I 



CALL COLOR t^ 



340 FOR A-l TO 200 
330 CALL SCREEN(S) 

360 CALL COLOR (1,2,2. 11,5.3, 12.6.6 
370 FOR A-2 TO 4 : ! CALL COLOR (A, 7. 
1.6)5 : NEXT A 
5BO T.SCR.SCORE-O 

:■-: ■■> ;: CL-INT (PND*13*3) : : IF CL-7 OR CL-10 OR CL-9 THEN CL-12 
600 CALL CHAfi!6O."OOO7393F7-V0:03O706O5O3O67 7777F75OOEO9CFC9CC0COC06OAOAO6OEEEEFE 
AE") 
610 CALL CHAR(104,RPT«<"01",16)*,RPT»("BO'',16)) 

620 call Cthar( 12a, "OC*>i03070ioiOKii 0202050201 ooooooooooeoBoo<'OOoooo909040BOOoooo 

00O-) 

630 CALL CHARIG8. "0000000000040 1 OB 1 2O1O4OO00O00000000000000020804BD0B020O000000O 

640 CALL CHAR (92,"0OOO02I 208040 12A330 104061 202000000004048 1020aGCA34S020 104 14000 

OO") 

630 CALL CHAR(I36."241l22t20BO401420IOI04084232112424BB454A102080l240IO20104!424 

B24-) 

0739339O303030605O5O7037B7F7B7AE09CFC9CCOC0CC6OA0A0E0C0DEFED 

OO 1 O3O3O10 1 O 1 O 1 020203020 1 000000000090900000000030804030000000 



660 CAU, CHAPUOI 

E3E") 

670 CALL CHAR (44 

OO"! 



DISPLAY AT(2. 1 



DISPLAY AT(3. : 



"TEM 



PS«- 

700 CALL MAGNIFYI4) 

720 CALL SPRITE(*1, 108.9. 130, 128, "2.60, CL, 1 , 128) 

730 CALL SPRITE(*3, 104, 16, I. 120, VIT, 0.44, 104,16. 116, 120, VIT, 0) 
740 CALL SPRITE(*3,BB, I, 193,1.46.92. I, 193. 1,47. 136, 1,193,1) 
730 CALL 5PRITE(*B. 44, 1.200,1) 
760 CALL JOYST (t.X,Y) 

770 CALL KEY(I,KE,ST)it IF ST-0 THEN 960 ELSE 7BO 

7BO CALL C0INCI*1,*2,20,DD) ii IF DD— 1 THEN CALL CRASH(SCORE, DC, VIT.CL) I I HOSUB 
1240 

790 IF VIT..35 THEN CALL TIR(TOU)u GOTO BOO ELSE 960 

BOO CALL CDL0R(48,12> tf CALL MOTION <*B, -127, O) t I FOR A-l TO 30 It NEXT An IF T 
OU-l THEN BIO ELSE CALL C0LJ5R (48, 1 ) 1 1 CALL MOTI0N(»B,0, 0) i t GOTO 960 
BIO CALL COLOR (•2,lO) Ii FOR AA-1 TO 20 II NEXT AA M CALL COL0R(*2, 12) I 1 FOR AA- 
1 TO 20 :i NEXT AA :: CALL COLOR (42, 16) 1 1 FOR AA-1 TO 20 ii NEXT AA 
820 CALL DELSPRITE(*2, 48) II CALL SOUND !200, 1B00.0) : : FOR A-l TO 30 It CALL JOYST 
(1,X.Y)j: 7IT-VIT*<Y/4>»4 tt IF VITT-0 THEN VIT-0 ■■ SCORE-SCORE-10 
830 IF SCDPE<0 THEN SCORE-0 

840 IF VIT>100 THEN VIT-100 : : CALL SOUND! 100. 440,01 
830 CALL HaTI0N(«U,0,X»9,*3,VIT,O,*4,VIT,0) 
B60 DISPLAY AT!3,7)lSTR»(T)fcRPT*("x",3-LEN(STR*(T>>) 



00 IF « 

im nf. ■ 



TV 



b p£\c 



i THEN 910 ELSE 6CORE»BCORE+IOt(lNT<VlT/10 



-99 A/^ 



e t£U0V3 



920 CL»1NT[RND«13)*3 :: IF CL-7 OR CL-9 OR CL-10 THEN CL-12 

930 CALL SPRITE! 42, 6U.CL, 1.128) 

940 CALL SPRITE (»8. 128.1. 1 . 1) 

930 SCORE-SCOPE «S"0 

960 CALL HO7I0N<»l,0,X»8) 

970 CALL C0INC(41, 42,20.031 : : IF D3=-l THEN COLL CRASH (SCOPE . DC. ■ 



1OO0 CfiLL JOyST<I,X,Yltl CALI 
1010 IF VIT>70 THEN V1T-70 : 
1020 !F VIT -0 THEN VIT-O u 
IO30 CALL COlNC(«t,»2«20,DDl 



IF DD--1 THEN CALL CRASH (SCORE, DC, VIT, CI.) 

MOTI0N(»l,0,X»e) 
Call SOUNDdOO, 440,0) 

SCORE =SCORE- 10 

: IF DD=-1 THEN CALL CRASH(SCORE, OC^ 



1060 CALL MQTI0N(49,0,0 

1070 CALL C0INC(41,«2,20,D4); 



CALL C0L0R<48. 1) 



IF 04- 



THEN CALL CRASH (SCORE, DC. VII 



CL) 



GOSUB 

gosub 



i (;.'■ ;■ ; 



TO 60 



GOSUB 



CALL COINC<m.»2. I5.D11H IF DI--I TM 



1080 IF SCORE O THEN SCORE-0 ELSE SCORE-SCORE* 10* < INT (VI It 10) )• ]0> 

1090 DISPLAY AT(2,7>iSTR«!SCafcE>VPPT*C'V.",5-LEN(STRt(5CnPE> 1 ) 

1100 CALL C0INC(4].42.2O,DD)t: IF DD--1 THEN CALL CRASH ISCOKE. DC." 
1240 

1110 CALL JOYST(l.X,V)t: CALL M0TION<41 , O, X*8> 

1120 CALL COINCfUl, 42,20, D3) : 1 IF D3--1 THEN CALL CRASHC5CORE. DC,« 
1240 

1130 T-T»l :; IF T /70 THEP 

1140 FDR A-VIT TO STEP - 
:: NEXT B ■ ; NEXT A 

1150 CALL MQTI0NI42. O, 0,43,0.0. 44. O. 0) :: FOR A-I TO 6O0 :■ NEXT A 

ITE<42,#3,44);: GOTO 1300 

1160 CALL C0INC(IH,42.20,DD) : j IF DD--1 THEN CALL CRASHtSCORE, DC,\ 
1240 

1170 CALL JOYST(l.X.Y) : : CALL MOTIONdt 1 .O, X«8) 

11B0 DISPLAY AT'3. 7) :STR»!T)* f RPT4r , ii , ',3-LEN<STR«fTI ) ) 

1190 LALL L0INC(41.42,20.D6):t IF D6— 1 THEN CALL CRASHISCDRE. DC. VI T .CL I : : GOSUB 
1240 

1200 DC-INTtRND»2)-INT<RND»2) 

1210 CALL M0TI0N(»3, VIT, 0,44, VIT, O) 

1220 CALL MOTION*! 

EN CALL CRASH(SCORE,DC,VIT,CL): : GOSUB 1240 

1230 COLL J0YST11.X.Y) :: CALL MOTION (41 , 0, X»8) 1 : CALL COlNCf" 1 , 42. 20, 02) 1 1 IF 0: 

—1 THEN CALL CRASH (SCORE, DC. VIT, CL) : : GOSUB 1240 II GOTO 760 ELSE 760 

1240 SCR-SCR*! :: IF SCR-6 THEN 1260 ELSE RETURN 

1260 CALL CLEAR :; CALL COLOR ( 1 . 6,6, 2, 1 1 ,6> i s CALL CHAR (42. "OOOOOOFF" ) i i CALL OE 
LSPRITE(»1.»2,43,44) : j DISPLAY AT (4, 3) i "ULTIME CRASH'" 

1270 DISPLAY ATI3, 3) !"•»»•••••••■• 

12BO DISPLAY AT110, 1):"BIEN LE BONJDUR A ST PIERRE" 

1290 CALL PARTfRE*)!! CALL PRESS :: IF RE*-"0" THEN 330 ELSE CALL CLEAR :: END 

13O0 CALL CDLORIO, 12,6. 1,6, 6):i DISPLAY AT ( 1 . 20) I "TERMINE" II DISPLAY AT<9 t l)l"\ 

OTRE F'RENOMi" :i ACCEPT AT (3. 1 4)SI ZE ( 14) BEEP VALIDATE (UALPHA I s P» 

1310 IF SC0RE<-SC1 THEN DISPLAY AT ( 16. 1 1 : "RECORD DETENU PAR "JP14 II GOTO 1330 

1320 DISPLAY AT ( 7,9) i "RECORD BATTU'!''" ii SC1-SC0RE 

1330 IF Pl»<>"" THEN DISPLAY AT (9, 1 ) : "VOUS AVEZ DATTU "!P1« 

1340 DISPLAV AT(ll,9)BEEPi "BRAVO! • •" ji P14-P* :i Pt-"" 

1330 CALL PART(RE»)l! CALL PRESS II IF RE»-"0* THEN 330 ELSE CALL CLEAR :i END 

1360 SUB PART(AA»J 

1370 DISPLAY AT (21 , 1 ) : "UNE AUTRE PARTIE" 

13B0 ACCEPT AT(23.8)BEEP SI ZE (3) VAL [DATE ( "OUIN" ) t AA« 

1390 AA*-SEG»(AA«.I,1) ti IF AA4<>"0" AND MMO"N* THEN 1380 

1400 SUBEND 

1410 SUB PRESS 

1420 DISPLAY AT (24, 1 ) ! "PRESSER LE 60UT0N DE TIR" 

1430 CALL fEYU.KEV.STA);. IF kEYOIB THEN 1430 

1440 SUBEND 

1430 SUB CRASH(SCDPE,DC.VIT,CL) 

1460 IF VIT>33 THEN 1310 

1470 SCORE -SCORE -3O0 

14B0 IF DC-O THEN DC-1 

1490 CALL S0UND(290,-7,0) Ii CALL M0TI0NI41 , 0, -70, 42, VI T, 70) 

13O0 FOR A-l TO 10 It NEXT A it SUBEXIT 

1310 CALL POSITION!*!, LI, CO) t I CALL DELSPRI TE («! . 42) , 

I, CO, 46, LI, CO) il CALL COL0RI43.12) 

1520 CALL SOUND(100,-3,0)tt CALL C0L0R146.12) 

1330 CALL COLOR(47. 12)n CALL SOUND (300,-7,0) 

1340 FOR A-l TO 30 ii NEXT A 

1330 CALL DELSPRITE(43.M6,*7> 

1360 SCORE -SCORE- 1300 

1370 CALL SPRITE(41, I0B, 7,130. 128, 42,60, CL, 1, 128, 43, ( 

"""*., 1, 19" " 



CALL L0CATE(47,LI,C0,43.L 



,46,92, 1, 192, : 



, L I, CO, 42, LI!. CO i: 



1380 SUBEND 

1590 SUB TIR(TOU) 

1600 CALL POSITION 

,-127,0) 

1610 IF INT(C01/fl)-INT(C0/B)THEN TOU-: 

1620 TOU-0 

1630 SUBEND 

1640 SUB PRIA.TEXTE4I 

1650 DISPLAY AT!A, 1) ,TEXTE4 

1660 SUBEND 



! CALL LOCATE(4B,LI,C0)I I CALL M0TI0NI48 
: CALL M0TI0NI42. 0,0)1 I SUBEXIT 



Suite de la page 14 



.: DRAkiTO ex.: 



'. i ■;<:> REM «•• BRAG ET PIED DE ET 1 HI 

61*0 PLOT RX,RY*3!SRAWT0 RX*2, RY«7: DRAUTO RX-*,R'i" 

6130 PLOT RX-2,RY.»:DRAUT0 BX - 3 , »Y* T. ORAWTO RX-2,» 

6140 PLOT RX*1,RY.10:DPAWT0 RX » 3 , Of' I 2: DRAU TO RX«; 

6170 PLOT RX.RYMOIDRAMTO HX , BY* 1 3: DRAUTO RX-2,RYi 

6180 REM •• 8RAS ET PIED DE ET 2 *•• 

6190 PLOT RK,RV*3:0RAUTO RX, RY *7 : DRAWTO RX*2,RT>7 

6193 PLOT RX,RY-2;DRAWTO RX.2.RT-* 

620O PLOT OX*l,RY*10lORAgTO HX.3, RT • 121 ORAWTO RX*; 

4210 PLOT RX.RY'IOIDRAWTO RX-2 , HI* I 2 I DRAyTO RX-4,< 

42*0 DEM *• HOUVEMENT DE 
6230 COLOR SIQOSUB aoso:( 




. ; DRAUTO RX 



>:oRAyro rx-2,rt-»:drawto 



DRAUTO BX-3,RY.*: ORAHTO RX-1,RV*2 
PLOT rx-i,ry*io:drauto RX-1 ,RY*12:DRAWT0 f 
PLOT RX*1,RY> I01DRAWTO RX* I , BY* 1 21 DRAUTO > 
PLOT »X-4,RY*3:DRAUT0 R 



'•DRAUTO »X*4,RY«9 



/ ' -,<; 


COLOR 


OIPLOT RX-4,RY»3!DRAHT0 RX-7, BY -31 OOTO 4300 
••144* BRAS EM HAUT •••••• 






oem'. 


X-4,RY<3: DRAUTO RX • 7 , BY t 2i BE TURN 

x-',by«s:dbauto rx-7,by«b:hstubn 






COLOR 


JiPLOt BX -4 ,RT>3: DRAUTO BX-B,RY*l 












4330 












OIPLOT RX-9,RY:DRAUT0 10,)0:COLOR is PLOT 10 


10 


MM 




2IPL0T Bt-9,RYSDRAWT0 7,13 






FOR M 


-200 TO 80 STEP -SiBOUND 0, M» , 10, 1 3! NEXT XT 


SOUND 0,0,0,0 


6370 


COLOR 


OSPLOT RX-9.BY: ORAWTO 7,13!C0L0R HPLOT 10, 


0: DRAUTO 7,13 


4390 


COLOR 


3SPL0T RX-4,RT*3:DBAUT0 BX-8.RY** 








-200 TO 80 STEP -3:S0UND O.MT, 10, I3IHEXT MT 


SOUND 0,0,0,0 


6620 


COLOR 


OIPLOT «X-7,RY*I0IDBAUT0 7,2*!C0LOR 11PL0T 


, 13SDRAUT0 7,24 


6430 




2SPL0T BX'9,RY*lOSDRAUT0 10,27 








-200 TO 80 6TEP -3IS0UND 0, MT , 1 0, 1 3S NEXT MT 




M4fl 


COLOR 


OSPLOT HX-9,BY*10:DRAUTO iO,27!C0LOB 1SPL0T 
2:PL0T «x-v,RY*lO:DBAUTO 14,27 


7.24SDBAUTO 10,2 


6670 


FOB M 


-200 TO 80 STEP -3TS0UND 0, MT , 10 , 1 3! NEXT NT 


SOUND 0,0,0,0 


66*0 


COLOR 


OIPLOT HX-9,RY«10:DRAUT0 14,77;C0L0R IIPLOT 




64*0 


COLOR 


2SPL0T RX-9,BY*i0:DRAWT0 17,24 
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CLAVIER AZERTY 



PLAN DU NOUVEAU CLAVIER 



PLAN DU CLAVIER AVEC SHIR 



iux fanatiques du clavier AZERTY et de I'ordinateur 
ancals : ce programme transforme entierement le 
clavier. Les autres peuvent neanmoins y trouver une utili- 
ty : clavier personnalis6 pour menu, etc. 
Un programme passionnant aussi pour les amateurs de 
trues et astuces. 

Pascal THOMAS 

■ io programme esttapfi ii ii ' dd, avant lest En 

NEW ()« la tone 140 est mconditionnel etles programmes L.M 
ne pardonnent pas toujours les erreurs de frappe 



Utilisation 

Le programme ne foncttonne plus apres R/S + RESTORE, il faut execu- 
tor le sys ADR indique a Initialisation. 
En general ADR - peek (56) X 256 + peek (55) 
Principe ; 

Moditicalion du polnteur do la routine do decodage du clavier (S 028 F 
- S 0290) et pointage d'une nouvelle routine implantee en RAM et qui 
ex ploiterades tables de clavier modtfiees La nouvello routine est a peu 
de chose pres la meme que celle de la ROM. ses NOP (plus de 60) In- 
dus, et n'esl done pas optimisee Elle n'occupe, tables incluses. que 
277 octets 

Modification du clavier : 

Modifier bS En listant le programme sur lecran le caractere d'origine 
est exactement superpose au nouveau (sauf en lignes 50. 58 oil le ca- 
ractere guillemet gene. 



0|,|2|3|4|5|6|7|8 


3 


& | + | | CLR | INST 


CTRL | A | Z | E | R | T | Y | U | 1 





p 


< | > | | RESTORE 


L 0»p nu'i | s.nrT lock 1 1 S | D | F | G | H | J | K | L 


Mjlhtcw • 


|shift|w|x|c|v|b|n|?|.|/|!|shift|crsr * |CRSR=- 



PLAN DU CLAVIER SANS SHIFT 



• 1 s 1 v I - 1 • 1 < 1 - 




& I ) | - | £ | HOME | OEL 


CTRL |a|z|e|r|l|y 


u 


1 | 1 p | @ | • | 1 | RESTORE 


STOP | SHIFT LOCK 


q|s|d|l|g 


h|i|k|l|m|\|)| RETURN 


|shift|w|x|c 


-|b|n|.h|- 


|| SHIFT JCRSR i ]CRSR > 



. ■ k >+pe< I i SS '-277 Pok«36ib/256 ; i *P«»I <36) elr b=peek<56> 



I riTrt."«er*>Irt"b-256*l > ««k<44>-Pt*k<4 



Pok«k+t»PMk<k>:next 



3) 

30 Pi'i.if'Jrati«nc* . 
40 »'ora=lto6 re*d 

45 nf*\ * z+1 ■' t 

46 PC*«=*t+l ..i/256 Pc*ez*t-n-256#Pe*l;<2*t-: 



■ 
51 !JM»»"'i- - »iP«" 

53 **a"b».*fhk s-iet-j* 

55 iJ = 

■ 
57 wt=">SFHKC*t)ETUOV' 
M i 8 



b*»b*+"<id9 j iXxvin; !wc" 
b»=b**"b. sfhknJjetu" 
ib»-b** 

bJ=b«*T9+.eZRYIP>QD" 
b*=b**"GJLf.>sVN. IWCB'" 
b*=b**"/SFHKMJl=lETUO<" 
b»»b»+"24684*" 



bJ="«"+oJ +"<* I 



i f -t-: J + 'iJ+iJ+V f+ta$+nS 

■ iieto68640 n*"chr*(I»Mk<n>> 

th»nPok»n+t,afiC<wid*<b*,P.-l>> : P»P+l 
■ ■ ■ 

IW Jl«in- i2-6e388+t-236»*l 

110 for?--' i Pokes^Z' MrXt 

eb*6**l Pokeb+1 ..»2 
136 Print , a-,'sa ♦ ■^•*torer : Priint - f«ipe 

14© sssb new 

159 d*t >60474 . 684 ?;> ■ 66486. 68488 , 60434 .69496 

168 d*tal69. -141.143,2.169.-141.144,2,96 




CO 







GNAFU 



Laissez un instant vos canons lasers et mettez-vous dans 
la peau de GNAFU, chenille sympathique qui doit, pour 
survivre, manger le plus possible de pommes, mais doit 
eviterlesdangereux champignons ven§neux, les murs qui 
bordent le jardin. et son propre corps muni de poils urti- 
cans, tout aussi models. 




Frederic MEL1NE 



Modedemploi : 

Vous dmge? la chenille a I'aidede touchesZ et X ; Z pour aller a gauche 

et X pour aller a droits 

Les deplacements se font par rapport a la chenille : par exemple. si la 

chenille vavers la dro'ledel'ecran.appuyer sur la toucheXquitera aller 

la chenille vers le bas de lecran. 

Chargement 

Le programme est sauve aux lignes 10 et 50 de la face I dela cassette 

sous le nom de GNAFU 



6& 




. .H. ■ It I 



PRIHTTWMHW -r.,- teJ 
. pRiMl NE i.HtniLLb EI VOUS DEVI ! - »* ' 

. PRINT" POMMES-MHIS tOUl CClHIftCI RVEl LES CHAMPION! US, l"- 1 " ■ 

4 FRiNl ' iMflufi -J" CURKS lit. Lm LHtnlLLt ESI ItORTEL." 

■■ ■ . FOIS OWE l« CHENILLE" MflNGI 
6 PR1N1 UNE FOIS UUE r0UTE8 LES PQMHES 1) U>l HEME IhRMW »0NI riMr*uti ntNifcLfc 

PfiSSE RU JmkLIII 3U1VRM1 CPUJ8 D1F-F ICILE^** 

■ &E2 DE8 LunMflNJJES SU1VANTES "*" * <- KUUI« "Lunr m \M»M 

j PRINT ")d ■■ POUR HLLER fl DROITE" PRINT"«l»iMI UN [NSTflNl S.V.P... ilWW 

.... .1. V=i=tSC(Vfj PQKEiy t 4....-i.j.,,^t. r-UKt3^W-^*4tfri',» 
11 r«PEEkt203 D-D+a-12>-<T-23i IFDvJTHfcHD-W 

u im ,»rHEN0"j 

i K»/(*tII-2>-(D"0J r =v-'_Li=-J j-CD=1 ' IFPEEK(i024*X*40«k , f>' , d^rHENli 

14 IFPEEl ■- 1024*X*48*V i>9J rHI 

15 fif-LEFT»(Xf ^ K»»fl»+M»+ft»*XI HJ^Ltt- I*' VI ■*:-■ V*"R**n#*M*+YI 

16 OOSUB90 &«S+DS ' : =r---l !FP"NIHtN9li) 

i; rt»«i Mi- !■.;-. .•*..* Vf"CHR»' v.'-vi [■1024+RSC' kluMi *■...». l>;«-40*fl8C<RIOHT»< -*■ i ■ ■ 

le POKEI»32 X*"LEFT»tX**LEN' : ■•» .■ - l ■ >• ttf i*' r#.Lfcmv*>-U 

21 PRINT N II»I ORE >TflB(20>"CHEHILLES "C OOTOie 

31 FORI*1TOLEN<X*J 

32 E"H8CCRI0HT*<X», l))*4WfiSi.i.Kl\>HT*KY* t l>> PuKE1024*E.S8 P0KE55296+E* 4 
S3 P0kES4276.8 P0K£54276»129 P0KE34277/15 POKE54272/208 P0KE342^.48 

-.4 F0RJ-13T0SSTEP-1 ; P0KE54296/J NEXl P0KE54276,8 HEX! P0KE54296*13 
35 P0KES4^,o.t' r-ufti-it,--^. ji P0KE54277.15 P0KE34272/12? 



36 FORI"ITOLEN<X«>:POKE1024+MSLi.S;lijMl*<.A*.l>^4«tHSi.>.RlGHU'.vl,n;,32 

37 POKE34273/LEN<X*>-] NEX1 POKES4276*0 

3S C=L-1 IFO0THEHX$«CHR*<.13J Y*=CHk*'.12J L"=0 -OUIUIW 

39 POKE34296*13:P0XE34276*e P0KE3427S* 17;P0KE34277, 13 f L uKE54272. 127 

4u FORI-lTO100:POKE34273.INT<RNI>(l))|r30) NEX1 P0KE54276*8 

41 PRIHrrWWlfWUtTbPUUr-SCORE "S 

42 IFi>MSTH£HMS-S 

43 PRINTSPC. li.'"J»IiHEILLEUR SCORE : "MS 

44 PRIHTSPCCin-Jffll'Fr POUR REJOUER" 

45 IJMIT203.4 b=-t3H»t) D-8C-3 DS"Q G0T0110 

58 F0RI=ITO3 P0KE54296.15 PUKE54276-0 P0KE542?6,17 

51 PQKE54277, I3:P0KE34272, l27^POKE34ki 3*28*1 

52 FORJ-0TO20: NEXT :POKE34276»0 -NEXT RETURN 

60 P0KE34296*13 ; P0KE34276*8:POXE54276a7 P0KE34277,I3 P0KE34272.127 

61 F0Rl = luutu l JOilfcP-l PUKE542/3. I NE.;1 I- uKh'j4-:, i o . V RETURN 
90 F0RI-1TU3-P0KE53281.7 

.-<l P0KE342S6( 15-P0KE54276.0 P0KE542/e>. 1 r - P0KE54277* 13-RUKE34272. 12? 

92 FORJ— 10TO10iPOKE34273*fiB8<J) NEX1 P0KE53281 .5PUKE542/6.0 NEXT 

93 OC+1 ijU 10110 

100 C«3 

101 P0KE52.48 P0KE56.48,p0KE5t>J»4.i-ttNObJJ4)HHD2S4 F0KE1 . PEEKU JRND251 

102 FOR I =0 1 U204 1 PUKE 12288* I . PEEK133248* I > NEXT 

103 PUKE1 .PEEKCD0R4 P0KE56334 ,PtEh.vic-JJ4;UKl 

104 FURI»91 t098 

103 F0RJ"8T07 REHIiu PuK.E122db*a*I*J.u HEX I -NEXT 

L0t P0KE33272«<PEEKC33272>NHTJ248)+i2 

187 PRIHI-H STl' POUR LUr«1tHt,EK" PfJKE542Sb. 15 PUKE54276.0 P0KE34276. 17 

108 POl E54277* 15 P0KE34272. 127 FORI -30 1035 ;P0KE542/J, 1 NEX1 ;P0KE34276/fl 

109 Wfll 1203.4 

1 1 vi FK'irU";r ■POKE332ai,3-POKE53280.3 POKE2+21.0 PRINT"!" 

Ill Fuk 1-8 1039 POKE1024* 1.97 ■ P0KE3329O+1 .u PUKE 1SB4*!.?/ i-UKt5t>256+ 1.0 NEXT 

U2 f ^URI-1024TO19B4STEP40 POKE 1. 97 P0KE34272+1 . POKEI+39.97 P0KE3431 1»1 .0 NEX1 

113 POKE 1323, 96 ■P0KE55f , 93.y 

114 N*N+ie U=U L6»DS*1 : P-0 

115 H-J2 V-22 F-l 

116 F0RI-1T0IV2 

117 ijObUUUU 

118 F'UKE1W24*H+40«B,92 POKE35296*H*40*K. 2 HUKL1«*5+M»4w»b. .- j r-i.iK.E33297-*fi+48*S,2 

119 POKE1064*fl*4O»B.94 P0KE35336+n+40*ft J 13 PUKE1863+H+40#U, y5 
128 POKE55337*R*40»B. 13 NEXT 

121 M=J4 V-24 F»0 

122 F0RI-1T0N uUbUBUO POKE1024+R*40*B.91 POKE33296*H*40*B. ? IIEXI 
12J X»«CHR»<19) v««CHR*(12j 

126 WH1T203.4 (JOTO10 

130 N»INHHNDU'»H; Ifc-F-WI NEN132 

131 IFH/2-INTtfl/2K.lTHEN130 

132 B-IN['.hHDU^*Vj IFF-0THEH134 

133 IFB/2-INKB/2K.1THEN132 

134 R-H+2 B-B+l lFFthKvl024*h+40*b.-<.^32THENl30 
133 RETURN 

1088 DFHHU. 3-4, 28.62. bi, 62. *ti 

1001 DHTR7, 15,31.39.63.61.31,3 

1002 OPlTFl8.224.240. 184. 232. 23^.2Jt>. 24U 

1003 Dflfft4, 8, 8.29, 10,8,8,7 

1084 EF1TF112&. 120, 192, 128, 128.64,64, 128 

1085 DRTH60. 118.243.233.233.233, 126.60 

1006 URTR253. 129.233,60.60,233. 129,233 

1007 LrttH60. 106, 226. 142. 209-13/. 78. 60 ■ 



DESSINE 



DesstnezsurrecrandevotreZXSPECTRUMaraidedevo- 

tre potgn6e. 

Ce programme utilitaire va vous permettrede creer prati- 

quement toutes les figures et motifs que vous souhaitez. 

Vous pourrez ensuite, si vous le desirez. conserver vos 

meifleures ceuvres sur cassettes et les utiliser dans vos 

programmes 

Joel TARQUINJ 

Dessins d'enfant, cartes geographiques. croquis lecbniques, et de 
nombreuses autres applications peuvent etre envisagees II suffit de 
depiacer un crayon imagmaife dans les 8 directions a laide de votre 
poignee. Vous pouvez a lout moment interrompre votre dessin pour 
passer une des IS commandes de traitement. Pour acceder a u x com- 
mande s tl suffit d'ap puy ersur le bouton de T1R de votre poignee ou sur 

Si vous ne disposez pas de poignee. vous pourrez depiacer le crayon 
dans les 8 directions en utiiisant les touches de deptacement du cur- 
seur de la premiere rangee Pour un deplacement en diagonale. il faut 
appuyer stmujlanement sur les deux touches concernees 
Avec DESSINE vous ne rencontrerez aucune difficulte pour tracer des 
carres. rectangles et autres figures geometnques (vous pouvez d'ail- 
leurs pour ce genre dedessin utiliser la commande "T qui vous met en 
mode "Trait"). Cependant. il est tres delicat de tracer des cercles a 1'ai- 
de d'une poignee meme si cetle-ci vous permet de vous depiacer dans 
es 8 directions. Aussi ceprogrammecontient une commandespeciate 
(voirhste des commandes) pour tracer mstantanement des cercles du 
rayon de voire choix. 

Si vous sortez malencontreusement du programme, >l est possible de 
reprendre le controle sans perdre le dessin en tapant : GOTO 400. 
Uste des commandes dispompies ; 
1/ Commandes mode Crayon : 

C : Pour c hanger radressedu curseur que nous appelerons "crayon" II 
faut foumtr les coordonnees XetYque Ton souhaite(X-0a 255 et Y- 
0a 175). Si vous appuyez sur Enter sans fournirdechiffre.l'adressecou- 
rante nest pas modifiee. 



E Pour chan ger l a couleur de I'encre en cou rs 

Attention un pave (8x8> nepeut avoir qu une seulecouleurd'encre La 

zationdu piKelcourant.suivantsonenvifonnement.ps i| 
ner la modification de la couleur des pixels proches 
P Pour chan g er la couleur du pap ier 

Celte routine modifie la couleur du fond sans alterer les motifs dejades- 
smes (dessins el couleursi 

X Pour afficher en bas de I'ecran, la p osition c o urante dii ci/m 
Cetle commande va vous permettre de relever des coordonnees que 
vous pourrez utiliser ulteneurement (exemple si vous creez une carte 
geographique, vous pourrez situer les villes et placer les coordonnees 
dans des DATA de votre programme basic) 
G Pour qommer p oint par p oint . 

Cette commande vous permet de vous depiacer en effacant tous les 
points (pixels) rencontres Vous pouvez vous servirde la commande G 
uniquement pour vous depiacer. 
N : Pour netto y er une p artie de I'ecran 

Cette commande vous permet de gommer d'une facon beaucoup plus 
grossiere et beaucoup plus rapide. mais moins precise, des parties de 
votre dessin 

Contrairement a la commande G qui efface point par point, la comman- 
de N efface par Pave (64 points). 

Vous devez fournir les coordonnees de depart de la gomme (X= 0a 31 
et Y—Oa 21) Si vous appuyez sur Enter sans fournirdechiffre.le depart 
se (era en haut et a gauche de I'ecran (0-0). 
R : Pour dessiner en mode Ralenti 

La Vitesse initiale. definie en debut de programme, vous permet de tra- 
cerconvenablement la plupart des dessins. Cependant, vous souhaite- 
rez peut-etre la reduire (dessins extgeants un maximum de precision). 
La commande R reduit le temps de repetition initial et permet done de 
dessiner point par point. En maintenant la poignee dans !a direction 
souhaitee. on retrouve une Vitesse normale. 
Pour revenir en mode normal, utiliser la commande A. 
A : Commande d'annulation . 

Pourannuler la commande G (gomme point parpointj.et la commande 
R (ralenti), 

D : Pour chan g er la couleur du dessin . 

Cette routine vous permet de modifier la couleur du dessin rntegrale- 
ment. Vous tapez le numero de la nouvelle couleur, et tous les motifs 
prennent cette couleur. 
V : Pour vider I'ecran . 

Annule tous les dessins effectues et vous redonneun ecran vierge. Les 
couleurs papier et encre restent inchangees. 
S : Pour sauve g arder I'ecran . 

Permet la sauvegarde de votre travail sur une cassette. 
L : Pour char g er I'ecran . 
Vous permet de charger un ecran enregistresurcassette. Vous pouvez 



■ 
2 Po ur coloner une zone 

... ... ... 

duneiigneiermee.voust - . 

llfaut p05itionnerlecurss^* ■■ 

. ■ ■ ■ ■ . ■ ■ . ■ ■ 

ches G, D. H. B lorsque le c - 

Kaute et Basse Lots 

voussu" * ■ touche'C" pour lancer le traitement duco- 

lonage. 

Comme pour les autres commandes. vous pouvez a lout mom? - 

de la commande Z en appuyant sur la louche TiR de la DO^nee ou Odu 

spectrum 

2/ Commandes mode Trait 
O Pour tracer uncercle 

Traceruncercleayantpourcentreladressecouranteoucrayon Maul 
fournir le rayon Le programme controle des depassements d ecran 
Une option vous permet de coloner le : 
T Pour tracer d e s Tra ts 
Cette commande vous permet de re 

fmis Vous disposez d'uncurseur que vous depiacez dans les qua tre di- 
rections souhaitees Des que vous appuyez sur ta toucne *P" un poinl 
de la couleur de lencre safftcheau centre du ' erce 

point a un autre point ■! suffit de placer le curseur a I endro»t so ,• 
d'appuyersur ta touche "T Vous pouvez alors recommencer la meme 
operation en choisissant une nouveOe position de depart oub en I 
le dernier point a la nouvelle position du curseur en appuyant de nou- 
veau sur la touche T Vous pourrez de cette facon tracer tres rap:de- 
ment de nombreuses figures geometnques 
Mise en route du Pro g ramme : 
Mettre lordmateur en mode CAPS LOCK . 
Donner la couleur du papier (0a 7). 
Conner la couleur de I'encre (0a 7). 
Donner les coordonnees initiales de depart du crayon 
Si vous tapez sur Enter sans fourmrdechiffre.lecra yon partira en bas et 
a gauche de I'ecran 

Ce programme est prevu pour contenir encore d'auUes commandes Si 
vous disposez de 48 K. vous pouvez tres factlementra;outer des modu- 
les de traitement supplementaires (par exemple : traces de courbes. 
echturesdetextes.changementdelacouleurdelabordure.etc ) Pour 
cela il suffit de rajouter dans la chame ZS du sous-programme com- 
mencant a la ligne 4000. les nouvelles lettres correspondant aux cles 
d'acces. et mettre vos instructions en 2600. 2700, 2800 et 2900 Atten- 
tion, dans la conception de vos routine, de ne pas employer des 
bles specitiques aux autres modules de traitement. 



SPECTRUM 




53 Pen .principtici variables .* 
56 REM 

53 REM IK.-Coui.eur de I'tr.trt 

88 Ren PR-Couieur du osntr 

70 ncn PO»rL»i Gone 

73 rem 'sr-rih? lode r*ier,ti 

aa rem 

100 go sub 4.0O0 
no co sue sooo 

ise 

14.0 GD TO *O0 
1*3 

1S0 REM 3.-P LECTURE POIGNCC 
133 LET ZU-233-IN 63*86 
IBB IF ZU-BB OR ZU-13 TMEW LETT 
711.33 
162>IF ZU=6* THEM LET ZU =8 
163 LET Z/o2E^-ril 61433 
170 IF Z/<>6< THEN LET ZX-ZX-64. 
173 LCT CIKZUtZX 
ISO RETURN 
390, 

4.00 REM ♦ PROGRAMME PRINCIPAL • 
460 INK IK: PLOT X ,Y 

4-90 INPUT "" : PRINT HI, KS,L» P 
iUSC 

saa pem 

310 REM I TRRCe DU CRRYOM ( 
320 REM 

323: 

538 INK IK: OUen PC PLOT X , Y 

330 OO SUB 150 

34.0 LET /.=/. » (CM-12) » (CM = 4.» ♦ (CM« 
20) - (CM>°4.0J - ICM«32) - (CM=*3) 

550 LET y-Yt (CH««8) t iClt«ai + (CMb 
12> - (CM.4.B) - (CM-16) - (CM =20> 

360 LET XbX-!/i253)i(/;8I 

36e>LET V«¥.(r>178if !¥(«) 

370 ir Crl.l TMCN OO SUB 1000 

3O0 OUER CR: PLOT X , Y 



_590 IF UT=1 THEN LET CM=0- PRUS 

S00 CO TO 530 

9©0: 

990 REM 

1000 REM I OPTIONS I 

L010 REM 

1020 INPUT -Tapez votre co»»ande 

";r* 

1025 if rs = ,k - then go to 1020 

1030 FOR K=l TO LEN Z« 

1035 IF R*=Z*iK) THEN LET QPT=K- 

SO TO 1050 

104.0 NEXT K 

104.5 GO TO 1020 

1050 GO SUB 1000*- (OPT (1881 

1060 ir PG=0 THEN PRINT *1;KI;LI 

1070 IF PG-1 THEN PRINT »1;K«;M* 

1090 RETURN 
1099: 

1100 REM * CHRNGT COORDONNEES » 

1101 REM « * 

1110 INPUT "Coordonnea X (0-255) 
,?"'?<* 



1130 INRIJT 



GO TQ 1125 



fdonnee y te-173) 

H?% ?t** s "" THEN GO TO n*s 

11*0 LET Y=UftL V* 

M*5 IF Y^0 OP Y>175 THEN GO TO 

1130 

1150 RETURN 

1190: 

1200 REM * COULEUR ENCRE e 

1201 REM » * 

iaie input "Couisur de (."Encre T 



1300 REM • COULEUP PRPIER » 

1301 REM . * 

130E LET EXPR=PP 

1310 INPUT "Cdu Uur du D«pinr t 

1320 IF PfH8 OR PR>7 THEN GO TO 

1310 

1330 FOP 1=22526 TO 23231 

1340 POKE I.e.PRtPEEK I-(J3fEXPR> 

1350 NEXT I 

1360 RETURN 

1*00 REM * UISU OES COORDONNEES 

1*01 REM « 

1*10 pRifjr m, -x=" ; x; " Y-';Y, - ' '• 

PRUSE *0 INPUT ■'■' ; CHR* 13 

1*20 REM 

1*30 RET'JOH 
1490: 

1500 REM * OPTION GOHHE * 

1501 REM » ♦ 

t'^10 LET PG-1 

1^20 RETURN 



1601 PEM 

1610 LET r>o=0 LET VT =8 

1^20 RETURN 

1-190. 

1700 RFM « UITeSSE . 

1720 IP uxa0 THEN LET UT=1 

1730 PPlfJT o;;-Mode Lent:"; 

J7S0 RETURN 

1790: 

1888 RFM * CMriNGE COU'-EUP DESSIN 
lOQIPFM t -- 

.iai=i input couleur du dessin 7 

laaanF cdes-pa then go to 1010 
1 2^ Ir cdes<0 on coes)7 then go 

TO 1610 
1335 PRINT HI, Ueu 1 ( i«2 patient*. 

18*0 FOR K=255£8 TO 23231 

1350 POKE K,e»PP»CDE3 

1860 NEXT K 

187e LET IK-CCES 

1B80 INPUT ■"■ , CHRI 13 

I3QQ RETURN 

1899 

1900 HEM • UIOER L-ECRPN * 

1901 REM * , 

1910 CLS 

1920 PAPER PR. CL.& 

1930 RETURN 

1990 

53? a B?n * snuuen sun crssette * 
t'ecrar. t ",e 

2020 INPUT "T*p« I ENTER pour «nr 

^9i&tr*r - , line p» 

^438 SHUE E* SCfiCEN* 

rJ0*0 RETURN 

2090: 

;i00 REM I CHflnGER UN DESSIN t 

^101 REM « . 

2110 INPUT "NO* d« r«cf»r, * Ch* 

r^er "iC* 

-J120 input "Mettre la cesiette a 



u re Er.iui te tapez 

"; line ns 

5130 LORD C$ SCREEN* 

21*0 INPUT "flppugtz Sur EN 

ur dessiner", line PS 

21*2. 

21*5 REM iniUiiisatmn de 

2150 LET PR»INT (PEEK 2233 

2160 RETURN 

2190: 

2200 REM » TRRCE CERCLE • 

2201>REM * * 

3210 INPUT "Rayon du cere I 



RY 



2228 IT X*RY>233 OR 

GO TO 2210 

323© IF Y+RY>17B OR 

GO TO 2218 

2230 CIRCLE X,Y,RY: OUER 1: PLOT 



RY<8 THEN 
RY<8 THEN 



lez vous le color 

"O" THEN OO TO 22 



2268 INPUT "U 

ier 7 ' - ;n* 

2270 IF R|(ll 

90 

2288 GO SUB 3000 

2290 GO SUB 1100 

2293 RETURN 

5380 REM » OOHHCR GROSS IERCMCNT 
2301 PCM • 

2305 > IF PG=1 THEN PRINT Bl;"liP 

ossibiei Ptiitz co**ande R" PRU 

SE 68; INPUT "";CMRI 13 RETURN 
2308 LET LI=B LET CO=0 

2318 input "Ligne te-sti "» ";X« 

2312 IF X»o"" THEN GO TO 2316 

231* LET LI=URL X* 

2316 IF Lira OR LI>21 THEN OO TO 

2310 
2 318 input "Co lonne (0-31) 7 "; x 

2320 IF XS*"" THEN OO TO 232* 

3322 LET CQaUM. Xt 

S32* IF CO<0 OR CO>31 THEN OO TO 
2318 

2328 PRINT Bl;KI;t1|;P* 

3330 LET IL=LI LET OC=CO 

23*0 LET HI = II)KEYt 

S3S0 IF Htx"8" THEN PRIMT RT LI, 

CO; PAPER PR; INK IK," GO SUD 
1100: RETURN 
2360 > LET LI*LI*IM»."6"I - (M»= "7") 
2378 LET CO=CO+(HI»"a") -(M|="S M I 
2380 LET LI«LI- (LI>21) * (LK9I 
2383 LET CO -CO - (CO > 3 1 ) ♦ (CO (8) 
2390 PRINT RT IL , OC , PAPER PR, T 
NK IK;" " 

2392 PRINT RT LI, CO; PRPER PR, I 
UK IK;"fi" 
3393 GO TO 333VJ 
2399 
2*00 REM • COLORIPGE D ' UNC ZONE 

2*01 REM » 

2*03 IF PG=1 THEN GO TO 2383 

2*06 LET US*"" 

2*08 PRINT OUER 1 ; RT O.0, INK 8; 

2*10 LET LI-0 LCT CO=8 
^*30 LET IL-LI: LET OCiCO 
2425 LET M«rin,-E(t 

2*31 IF M(."B" THEN PRINT fiT LI, 
CO; PRPER PR; INK «," '■ PETURM 
2*5i.If H*»"0' THEN LET C6»6»(CO 
»U -*: LET VIHI.'O" GO TO 2*6«; 
-'453 IF H«i'H" THEN LET LH«(22-L 
C) #0-4.; L^T Vtta>*"ti" GO TO 24C 

i*54 IF Mt."D" THEN LET CD-S« <CO 
*1)-* LET UJO)i»0": OO TO 246C 
i*53 IF H»»"P" THEN LET L6=(22-L 
.*.)»*-* LET UIUM'X- GO TO 2*& 

8 

d*36 IF M»--C" THEN IF i)* . r'OM&B 
' TMCN PRINT Ml. US," [mroipltt I 
PRUSE *>0 INPUT ■'•.CHR* 13 G 

) TO 2*60 
**58 IF H» H "C' THEN RRINT RT l_ I , 

'~.0; PRPER PR, INK 8; • " _PRIMT " 

_. OO SUD 110 
JH60 LET I.IiLIilM«."6'l •1H*b"7"> 
2478 LET r,O.COMH»."l!"|.IM|."?" l 

^*68 LET I.IaLI-IL!)8l) t'LI<8l 
.-•*83>LET CO=CO~ ICO)31! t -CU:0) 
2*90 PRINT OT IL.CC, PRPER PR; O 

'ER 1, INK S;"4>" 
2*92 PRINT RT LI. CO, PAPER PR, O 
uen 1, INK 6, - ." 
2*93 GO TO 24,28 
3*99. 
./S0O REM * TRRCE TRRITS • 

2601 REH • • 

2383 IF PG-1 TMCN GO TO 2383 

LET LP=0 LET CP 



2306 LET PTP«0 

-0 

2&10 PRINT OUER 1 , AT 8,8, 



a . 



■> , 320 LET LI-0 LEI CO-^O 
2323 LET IL-LI LCT OC -CO 
J338 LET IIS-INKEYS 

2333 IF MS-"0" TMCN PRINT AT LI, 
CO, OUER 1, INK 8, "■:•" RETURN 
2S36 IF MS="P" THEN LCT LP-LI. L 
CT CR-CO: PLOT O • ( CP » 1 ) -4 , (22 -LP 
I #8-* 1 LCT PTP si 



25*0 IF H*«»T" TMCN LET X=84(CO* 
II -*: LET Y- (22-LI) «3-* PRINT n 
LI ,CO; OUER 1, INK 8, -■•:■ • ORAU 
X-PEEK 23677, V-PEEK 23678: PRJN 
^_«T LI, CO, OUER 1, INK B.'O" 
2330^IP PTP-1 TMCN IF M»-"T" THE 



H»-"7" 

MS--5" 



LE DXSPONICLC* 



LCT PTP__ 
2568 LET L I -L I ♦ (MS -"8" 1 - 
2578 LET CO -CO . (HS - "O" > - 

2580 LCT LI.LI-ILIUIJ.I,.^ 

2585 LET CO =CO - ( CO > 3 1 ) ♦ (CO < 8 1 

2590 PRINT AT IL.OC, PAPER PR; O 
•'ER l; INK 8; "•:■" 

2392 PRINT AT LI, CO; PAPER PA, O 
UER l; INK 8, ••*:•" 

2393 GO TO 2335 
2699 

26O0 REM •**MODULC D I UPON IDLE* • ( 

■?G90 RETURN 
2G99 

2700 REH n.MOOULE D ISPON IBLE • • • 

2798 RETURN 
2799 

='3 80 REM # ♦•MODULE DISPONIBLE*! 4 

2090 RETURN 
2899 

2900 REM 
2999 

iSrS RCr1 3 '' P D& REMPLIS3ROE 

3010 LET CG-X-RY: LCI CD-X»RY 

3020 LET LB-Y-RY LCT L11-Y»RY 

3830 FOR R=LB TO LM 

)048 FOR 'C=CC TO CO 

J 3080 IF POINT <C«R)-1 THEN OO TO 

1068 NCXT C 

3O70 GO TO 31SO 

.1088 LCT Cl-C 

3090 FOR C-CD TO CG STEP -1 

310| IF POINT lC,ni«l THEN GO TO 

3110 NEXT C 

1128 LET C2-C 

3138 PLOT CI ,R 

3140 DRRU C2-C1.8 

3150 NEXT R 

3160 RETURN 
HBO 

till IIS IIi8ffietf*§f£§«I 7 

1038 LET X-8: LCT y-0 

*048 LCT PG=B: LCT UT =e 

iO50 LCT IK=0: LET CR=8 

I860 LET BO-7 

■1063 DIM U» (*) 

t222 L E T z »" "CEPXCAROUSLONZT" 

loeo let ks-"Uc«us pouvez " 
iago let L»-"o«ssiner ■ 
1100 let ns-"Er r»c«r ■ 

l H0 LET M|>"voul DlPLncir" 

ti30 LET o»«" pmr point" 

1130 let P|i" far Pave 
il78 READ R| 
il88 FOR K«0 TO 7 READ ccc 

use iPOK.e usn Pt«K ,ccc 



• l« c 



4250 RETURN 

1280 

^000 REM 

•i0 10 REM I PRESCNTRTION 

"020 REM 

5070 BORDER PAPER 

3888 CLS 

'.,890 PRINT AT 0,8, PAPER 

M 1; "DESSINE", FLASH 0;" 

-les Disponibies: " 

"5108 PRINT '"<C> POSlMli 

rayon" 

Zlia print "<e, CMn«« <a couuu 

r de I 'encre" 

^120 print ;;<P> Change L« cooieu 

7,130 print ™<0» Ooiib point par 

5140 PRINT "(A. Annule i« co»»tn 

Jes G" 

■il50 print "<N> rituoit i'ecran 

p»r pave" 

c il68 print "<D> Ci-«nj.: le rouuu 

'-,170 print "<u. uide I'atrin" 
■ilea print "<S> Sauve I'ecran su 
r casse t te" 

-.190 print "<l> Charge -,n «cnn" 
0200 print "<o> Trace un cercie" 
Rapidi te du Cray 



Donne 14 pos iUo 
Co lor i age d 'une 



3318 PRINT 

3220 PRINT 

n du crayon 

'-230 PRINT 

zone reraot 

^348 PRINT "(Fi Mode trace I r 4)1 I 

«sa print --Acces aux coiaindu 

> OU TIP" 
■5260 iPRINr ' PAPCR 3, INK 6; " S 

« ■*'. tre en »o-j« caps LOCK 

'J 378 input "Couleur du papier 7 

", PA 

T2B0 PRPER PA CLS 

'S290 OO SUB 1388 

7300 GO SUB 11U0 

1310 RETURN I 



GEOGRAPHIE FRANCAISE 



Vous trouverez dans ce programme, outre une revision 
amusante de la geographic francaise, quelques bonnes 
astuces de programmation. 

Pascal RANNOU 

Mode d'emploi : 
4 OPTIONS : 

- Placer a I'aidc dos curseurs sur la carte, la vilie demandee 

- Dormer le nom de la ville qui clignole sur la carte 

- Oonner le nom du fleuve qui s'affiche sur la carle 

- Apprendre en se placant dans le mode revisions 
ANOTER 

4 lonctions intereasantes 

'Un RESTORE vanable : on restore a la ligne voulue en faisanl X — 

USR (L) ou L est ligne voulue Ex. : X - USR (200) 

'Decalaqe de lecran d'une position a droite : PUT 

•TRACE ET EFFACEMENT DE DROITE : 

avec les instructions DiSQUE ; LSET et RSET 

- LSST (XD. YD. XA, YA) et RSET (XD. YD, XA. YA) 
Trace de droite Effacement de droite 

XD - Abcisse do depart 

YD - Ordonnee de depart 

XA — Abcisse darrivee 

YA — Ordonnee d'arrivee 

XD et XA compns entre et 127 

YD et YA compns entre et 47 

En cas de depassement message d'erreur (FC ERROR) 

99 RE* MWIECTIOM 

-256 * 32173 THEM POKE I5151.32l7e PH> 233 POKE 15 
S62,:STC32l?3/25S> 

ttmitmmntumi nxmstt* mti t> 1 1 ttt t sx t t 

I3T0RE WI6e_E ILICNE ::9-!30> X-USStLICNE R RESTORER: 

... -,r,- 

16327.64 

:■ :3.229.2C9,283,44.27,*}5.5.217,30, 14, 195,162,25.137,225.43.3 

,-i lr .Ti,Mi.i.fu.T.,.titrimmt«i(ntn 
-...Z- :■■:■:. r :'.■■' BASIC tLIOCS 149-218, 1588-1710) 
: - ■-..-. a DROITE LSETOffl/VOiffl/Yni IWt 

E :i BflOlTE .. rD,ltt,YB) EFFhCEtfEHT DE C-POITE 

[5883 T-B 
:53 PMI«32176 TO 32557 STEP 29 
168 FORJ-e to 27 *EhO P =0K" :-. - ---•' ' EXT 

■•■ - - -_■ PR'KT'EBSEUR WW LES WTR3' "STOP 
■ 
32X8 .261 
208 POKE 16771,31 ■ ■ ■" 16792.235'POKE 16793,126 

' ■ POtt 16736,127 

2» eotc :?e 

nxantmm nsmntatntottn i •"• "• >> »**«** 

.... . ... 

... . . .. . .. 

". 33 \'-- D4 PEPO B-8 L8ET<C,0,ft y BJ 
268 *€ZT 

J7 K.49.e8,44.77,44,83,4S.91.44,91,4l*97.39,lI2.4l, 122.37,122,35.11 
Sj33.\tt.Z*AW,tt,lt3,\9.\\?.l7.UJ. 19.36. 7. 93. 1.75,2. 74 .7,«,!8. 53,18,39.5.54. 
5,56.14 ■ :-.:9.4S.:?. ;2. 2:. 53,25,53. 23,63. 31 

■ 

..;,,.. ,, i n„,t.rr.rr..- ........ !fli. 'II fJUrl itrltrn 

■"---. 

398 P-123 8*C8 Z-iJSa;338> 

' : TC 7 '.-» I-e a£flW.e-L3£T<C.0<R.3) 
228 «e<T 
338 DftTfl 122,22 : :-: :23.24. 125-20. 123-29 

■ ■ ■ 
-■-.;. :; r..M.t i..iH!ii.tiiiiir.rlttMt»intiiirn n 

3B| REH TRACE 9E - r - :-.'■■'- 



939 IF PEO* . 

? i C (f r, ? T>CH SD5U 1868 '"-: 

950 [F P-16 DCM DOSUB I8S8 

■■■ : . ■ 

•r.3 :=■ ?•-: ■--■■- 



ore im 

-.:•: :t..* 
;:■-: .'-■• 
C3T0 ie» 




?3o if f-7? T*€M gov* iei? ■> 

?38 If P-«8 ---■■ '/: -■ WTO 1838 

>48 T>CH MSU9 1868-K-X-l Y-y-1 GOTO 1838 

io:e if p«43 them t!ftj$ i«e ■'■■■- ■. am :--■' 

: ■ ■ I 

1838 IF ■■-■- ■-:■ -:--:-3 ELSE I" K>127 THEN »1?7 

1340 If V<8 THEN v-8 ELSE If '>47 fMEN '■«' 

IBM GOTrtaso 

1350 If PM '■"- " '■'> PET'.** 

1073 PETlJPN 



1888 BETl 



) fit-" 



QW, •'86333 Bt 

«8 C-fiTft "37623 LIMOGES-, "33638 rwTPELLlER' 
*:M--ETIE>*E*. '11248 TOULOH - 

!f, "07223 Ti- J '.»S ,, ,' , 375:7 CPLEInS' 

■■•;■ ;-;■ 3-573? LE HflvRE". -37:?3 ='.£'(■ .-'350?: wien: 

B731B REIHS'-'lKie f^Tz . :?5irt-=>:« . ::r:: ■--•..■:. 

■■'-■■:: ■ 
.,,,,, -. ■-■ '/.--A rCPCE? 3554.3 pflij", -86924 POITIERS', *834J5TRCVE! 



.,„„,„>iir>,itMJ.I.F)ll ••■% - 



' - 



363 «"*4 B-I8 »KJS« W8 

378 FORI"! ID '- W C-P -ERO B-B U3ET<C.&-fi,e 

see next 

3?0 Dfl-fl 7;,;3,95,:3,3I.13,33.17 
408 »ETij«N 

48? 9£rru<><'">>"<"""" 
418 REH "-' , :r DE Lfl 5»CM€ 
428 ft-54 B«32 y.ij$p^438) 

438 fo»i«i to : rxi ■ : " ■: P,fl>B) 
*48 ^CXT 

. 35/ 73- 37- 73,43. 72, 42.76,43 

468 PET'JOm 

.-F)HMmmm.7 l ..rr.r.r l .r..iii.,r t irir... 

478 REM '' C 'Z ' 

...... ..... 

■ - - ■ ■ .,r Q£fQ p..r. LSETtC.O.fl.B) 

588 NEXT 

513 wire :02,;5.:32.;? :k i-.- \r : .z-,,;\\,z& 

. 

■ „|.„.,r„ril 1 .iilnli"".ni.i..j|mll!»» 

' rRflCE 3E Lfl LOIRE 
543 «'5E - 

■ ■ ■ ET<C,P.A,8) 

- ■ 

■ ■■. 17,93.19.95.25.96.32 
398 KETUW 

-V-. :r-,t. »»--.,.•.- >.., ■ -.•r...i.l.-.rr-...i..i 

5SC '-£-" 13« 

533 DEFJ 

■ - ■ ■.. qua: 

■■■ ■ ■-• -avxxx -'.' ■ :.-'.' " 

...t.Lf.FTl'P.1. 

- ■•■■-■■■; 
■ -. '■:■: rt-Zf A 

?57:7 LI MW 

- . --■'-:"-. "03843 I 



■ REH I'EM 

650 -■=>: tc 64 ?',T'ME>rrcL3 p^imt p?:>.* ■--■:■■- 
- ? PRIM- ---■■- /"- " :: S3, :- 

-■- «-..-. .- ( . j.-i"vr j<LI VILLE5 DE^ftCiEE" 
-:; --:'i-,' h ■ OB BE8 v:lle; GUI O.IC 



0.127,C 



■~<.%A 



763 Ri-IWErt-IF 9«-- a T>«EN 768 

778 IF RI»'P" THEM 1423 

793 IF P*-"F THE* 1 1318 

738 IF R8"*N* THEH 1188 

533 IF PJ-"P" THEN 323 

813 GOTO 763 



816 PEtl 

SI 5 P£t-Frltfr.r,|.,.,r.l(rf r II * r>ri t/mf K '»»>f t"t«»*tttt« 

31? =Ei- PlSCEKEMT &E5 VILLES DErtSWGEES 

S20 F0?I-1 TC 64'PVT'NEXT C03UB 2'-? C09UB 333 PBiiireO. "DEPLHCEZ-VOWS fl L 



:■:■■■■■■ ■ -:-;,-:' pyp:i>-y 
ties if P83<o;o>2 ne 

1118 K BBKDY»I --v . 

1128 =t.5J COTC 1178 

1138 IF BW-2TWH R*"' tsijp a L'EST'ELTe IF D^>2 '^Em '»- It 

1148 IF DV<-ITHE>I «•«•*■ TP3" RU 3U ELSE : r BY>I '■€'< M-flt*' Tf>0* «IU NCW 

1150 PRI»rK35,<»- PPIIJTi»?68,e», ■PPIfni»?58.Pi ^5*^-1 TO :' 
1158 PRIKTSSW.Wi "t ■-*■■..:■ J-0 50T0 359 

■: ■■•:-^5 •■! ' : : , ":'C? ~t :;;■. 5 :T2? =--;•■ ■ . c;tc e<3 

1173 REM 
1176 FEP1 
;;78 P;f ""■"""""•"""""■""" '""""*"""""" 

;:-■ ■:■■ ■■;-■... : ■ ■ _;: .-■■■ ■ 

1183 FORM to 54Put w -/:-■:■■■ ' 

U90 RPWCH-T-Rwoa ■=: ~t v»p(t> pfliF,T848--;>-: r " 

1280 fit-' - 

1213 PS! "TV*, EMTREZ LE HOM ■ " X1CN0TE -" : :"'>:29.*PJ 

13 '. extep r -■:■■"•'•: - 

1223 FOPI-l TQ 48'NEXT i- -:: "" 

= -". : '.:' : s :-32 them «» 

1243 PS»Ir#TC«.IF Ot»" Tr€H 1228 

1250 if p»-Ci-=*':? "-£'' :;;■■: 

1263 IF P*->s*<?; ---.■: -f-i -I'-Ef ■- TC 1238 

::?e fi»>s*'p* 

12?C r:;- ."c-:3. = »'"" ".'MTO 1220 

i2?8 if fii-D*' t; --:■. ■::'-::■■• ;t ;::■;: :r:;- "-;: ■ 5:^5 t:» 
:--- PRIMT«96 WJWISE REPONSE-JE VOUS ftlOE" B*«LEFT8<0#C' 

Te648.Pt.'-". GOTO 1223 
;??5 REM 

: "-ttt.il ,.,,,,,., tttmmttt ttumtt xtt 

1305 =EI' FLELVE5 

1318 FOP. 1-1 TO 64 POT KEXT CU r 

P20 »=if.T53 "-■■•=": .^ .■5- !t F.'^.-E") PRIHT354,-BU7JEL VOJS r r 
■ ■■ c-,T E ? >■ (.s :(i T:-a-, >"■ , " ^.. f" .'•■ , '?543,--"j 

1338 R*-" C03UE 1538 

1343 B"l 

;-"3 : r C^OJ-'SEI^'THEN COSUB 368 ELSE IF CK«H-*C**"'. ■' 

f ct<i; >=-=-:>-■ --E 1 . ::=■.= -:*-.-• ■:■■-■■ ■ 

:~-er '^:-,---.--. :- ■)■■• the" :?53 

1378 IF PEEW14464>I THEN IF PEEWJ4338KJ2 T*i 630 

1388 IF zt-t-"*: ::■: T -E'. :4ie 

(390 " =-,--- ; : -. "-:-. j*.PJ Pl-.E7-l'j».LEtKJ»>-l)'PRINTi?643.r.t. - 

60 

143a ;.t.M*e* ;='>.-:--i: ■■•- - ::'■: 

1413 IF "s-:- " -:-:■. rrr.r;?-:?.';* «»■" 00316 15W-0-0-1 ■ ir -. 

:-.,T'.r.t'. -~-. TTQ I'-Z-H T_" ■"•.•■■T-i'C^ "■■ . WISE : " : :' " I "t" ' ." 

CCTC 1360 
1413 R91 

,■;■:■ --- 

1413 ^■••i'»"i""ll"t' 1 '" ...,.,-,,. t.'. ... 

■■::■■ -— =' XV.' ' 

■-- "■ ' ".- ■•-,- "■ ' 240 M3'J9 389PRI«T?3 ■■■ 

PRINT864,' BW ■ '"'■' ■ ■":'■'-■" ■ " 
■ 
'89937 NIKE3 88926 CLERMONT-FEBW -" " ■■■ ': -fjt:' '. ■ ' ■■:■:' ■'i3,P», 

13128 LV0-'"."?562: >.*■■ ; ': 43 IF >EEK' 1455! :■'?"■■■ 

14GB KEXT ;- PC!'-" '-•, ■ T-oi. f:>;T'.v,vi EL3E SEKK.V) 
■094C4 LILLE MrO'et-IWEVl-IF P»-" THEN 1458 

MAM0U3E-.- 1488 IF Rt-" "THEN SET'.x.v) CO^.'E 1523 F-F*l IF F-33 THEN 1530 ELSE WTO 1448 
14?o IF Pi-, -r THEN 630 £L:E 1450 

1338 PPI-lT30,F*iPfiIHT564.E«iP*IMT36^3,E*. r -:- T :-'-- 

523 PRIKTK48, .OIHE COSUG ^ r ' C03WB 1528 PRIHTI648 'RHOME I " 1?I8 COSUB 
1523 pp;(<t.i543. ,, i;p-: , .'>!; "-..■■ :c7o c::,t ;::3 c:tq sm 
i5io ootc;::? 

!32C F0=:-1 TC 1533 HZ::T FPI'. T 3543."t ^R1MT?734 . F». PRIKT»9S8->Ci " 
PETIJRH 
1530 8-8'flKiy SEINE" ft*(2;--F«CHE" fi*3>-"L0!RE" M<4)-"G(W>0NNE" 

1540 FOPi-i tc * mn-OHExT 

1550 FQPI-I TC 4 
i" 1563 f)-RHtK4}T0P>l TC * IF fl'J)-P THE" J-4 HEXTCOTO 1560 EL?E NEXT fv. I W CV 

: wikr: hext 

1578 RETUPM 

1580 C-FtTR 888. 880.089, 808, 880, 253>833, 176. :.': . 

3.25? .33-- , "'- ■:?- .067,287-126-28! I9i 

[598 DflTfi 221. 833-283,126.129.039.081,186,956-88: "" ■■"«!. OK. 33 

2, 946,253,834,293. 126.:28. 146,242,234,125,3223 

1698 OftTfl 237,969.103.121, 147-242,242,125,237,969-111 834.293.126,124.1 

2,283,847.3*0.-1"' :;c- 3" ■:■'■' ■35';'. 234 ■ 125. 3735 
1610 DPTO ;:: ; "4, 335. 338, 239. 126.859,283, 125, 133. 353. 203. l2>' .": 
3. 221,153-33-. 353, 233 ; " 12-;. 221, 151! 
I0E DE 152P ■'■■'■ : 24. 303, 350 22 7 12C.2"j7. 375, 237, 126,235.192. 12'.' >''/ ■■ 



>L=£T(8,3,a.47) LSET(I27, 



■'-:.--.r.: -. 7 Z ~" '-r <"entep"j oWt. ppi'r3i23.""/Cv-. fem:e2 'w;c tc-owe 3.209, i?/.e'.r..M-.?' 



■ : r(33,'< H / END* 1 
949 ;.9>;y 39>'Ps!nTSS4e.0« I >. 
550 :>33 V23 
963 P1-P3IHT CX,Y>-SEt<X,Y) 

378 FCP T-l TO 38 IF PEEK' 1453!: 

■ ■:. g 

■■-.'■: :■ '■::■■■-■ ■■ ■ '-.■< RESETtX-Y; 

''33 OTTO 373 

918 P-PEEK'13383j 

?2C IF PIE^irt.!??:-: -HE'. :?:•: 



■ THEfi t.;o n2/T GOTf 313 



TBS 80 



. k : ■■ 22I,:34.804,i 
1C33 C/P-" 053.237. 125 05" 233. 125, 132.053.233. 126,221 ■ 132 OK.CV-.H]' 
2,859-283.:;.' ■ 221.194 9t ' 859,3333 

■■ (26-237.873,207, 126,205. 192. 124,024,299,062,081 ,921 
3,213,197.245,137,12: 193.931 'V 

;.-- ■ r •:. ■ - : - -r- :;: 3"' ?3?,995.e24,2*5,089,l»,120,ie3,831.09;-II 
0.G4i,o4i.e«i, (Mi. o«: ■■••■. 

;ko ob-d :;5,! - - :■<• :«: -■-; .322.030.0:: 3:7.o^o■350,325,:25.l3:•,.".*' , . ■■ ■ 
2,120,119,173,184, K2. 031. 343 r-y ": ::■- :-'.: 

:■:■! c- 128,047,166 1)9 19 M 
9.223,291.253, 126,080.193,282, 103. 126 2CT.35?4 

jet.i* [:,-. r- ■■■-, ■,,-,',;-,;; e02 ; ■■•: 880 380,809.808,808 314.016. 333, 062, 3£c Bl ' 
:-'.33*.:l3,C43.343.315,24^ ,' " 

l«d [,<>Tn ;:--< ■;-:■:' 

- B?4 930,938,177,125,297,944, 21 I I 
1780 DfiTfl 829, 34'. ''4 -■ ■ ■ :..'. 287,944,285-921 B43, 254. 129,21 

0.074,830,0:3.:-' 125 2P7.C4*. 205, 828,043. 3144 
S7I8 WVTP, 254,9*0.210.! 
0,030. :76,:2! "-■' '■'..•;■• je3<2ie.l2S.223,4006 ■ 



lite ds !■■: page 15 



&PS& 




, • on m -200 ro i 



4710 COLOO o:»lqt VX-I.Uf io:PB»wto 


17 


672o cotou QiM.0* nc-4,nY*siiMMrro « 




67S0 COLOB i:PLOt B. ■,,«■.: OHMTO 17, 


11 


: rn , I I--;-. ,,| 




4740 COLDf OlPLOl "' ',,U, : OF-AUtQ 17, 




6730 COLOB 2SPL01 »>-»,1<r;DP»glO la, 




SNBXT nil SOUND 0,0,0,0 




67»0 COLOB OtPLOl «■ v.p. : i.i'i.jr., ; i. 

■■..;..., 


10 




O700 COL OP 0IPLO1 «. *,",<o:DB<a'0 i 




«709 COLOf jiplOT m •).,-.•-,: iiPwi-, t. 




J2, io:D»fturo JJ.ai 




■■ 12,11 




6000 »I.OI 


■II 


■»IO PLOI 52,27; D»*M 




6S20 ''Ow i IM-0 "i I0!NI tT *>IH 




aBso »«« ••» BUCK "ootns ^ 




*033 fOB »•' 








AB70 SOUND 0,111,10,13 





' . ;-., i'.-i" ■ ' >'■■■ : -,'iiif-i.. 0,0,0,0 
241COL0B 11PLOT 14,27!0BAur0 17,24 

■-.■■' rjP J! PLOT f. -1,Bf.3:D»n«T0 BK-B, 

3'.P0R WT«200 TO BO BIIP -SiSOUND 0,M1,J.|,!3 

COLOR llPLOl 17,24! UB4MTO 17,11 

FOO Mf-700 TO 80 BIBB -SitOUND 0,MI,I0,I3 

COLOR llPLOT 17, 13IORAWTO 1 A , I 1 OPftw Ifj 1 O 



OBAWTfJ ,'*,v,':t,»AwTri JU , 7.' : DRAVI T U !7,71rORAU 
'TO At,, 27: DRAW 10 4 7,27! DSfl"") 4 ', I" 



'.'",., '.' ' . 



-,-,•■.., BOH 



i posit 

, CN'jl I 



' OR KX«>'3* THIN SWftO 



l,ft'J.81,8l ,41,«0,! 



I.D'.IO.VA,**^ 



I"' ■ ,F'H ""'" '•> I ■ 



i 'OVH1 ■ 

i coNiieri: 



ON 1,91 ' -'^ 

i,i i '.'■■. "i •-■ ; 
m RAVIT4ILI 

'.UK- It' .-(', 



ii run ■ awoih . 

Ml.. | HUM 

LANOUI '. IN ' ' 





' «..| -1 1 RUM DC POINTB*' 






ROfflTION 4,Mt' •Ah-nPPU'ti7 


■.II.. 


7?40 


i-,ii | v,.i . ,'■■'■■ 






'*4)-299 THKN OOTO 






• ".|- :t,P,At'HICB 17 




■. '0 


i*o ti rioM »,») ■ ■'■! ■ i i 


,..,1 


.,■■„, 


. .. i ,: ■ -.-.. M , Mil 




.,..,,, 


'■ BAlTOHr. LIB RAOUETB ri 1 • 






7 441-LB HAKlBUN 0-OWN1B' 






* HA1 'PO&'. ■■■ 




' 


POBITIOK 4,22;- OSI-AfPUVB* 


BUR 


■ ■ ■' 


POKS 7*4 , 233 




• |40 


■r . , , . 




■ ■■ . 


. . ... 





SURVIE 



Swle de la page 7 



>io* rem 
*i i* Ren ■ 

«1M REM 

♦I" Vf P * ■ £1 rxCH 1090 

(14* if 0(1 ■ ■ mcM »2to 

•11* IT F7 . i THEN 4i.;o 

(16* PRIH1 *Cl -■■' ">■ 

-Eentnee-; ■ 

41 7* coi 

H09 print TEL ;:.:■ 
ISTE Bi I - ■ - -. .. 

A tcrpe - 
(190 print *TEHP3 HI-: POUR U 

R VTl ■ * UN - 

. ■ ■ a mis 

(218 PRINT 'UOTRI . . .- 

.. . 

42:0 GOTO i*(* 

42 30 R£m 

(24* REM DILITh[i..m 
(25* REH 

I2S9 If •" ■ H THEM 4000 

4£-g ;osue *S0O 

(204 IF I i ■ 19 THEN -"--:■' 

429* if u a r«£ M *j3o 

430* print -le BESAcrivEUfl U LA I 

E ft L "EST OE LA AT ■ • ■ " 
€ SUA LA" 

4319 PRINT ■SURFftCE LUHAIRE - 
•329 30TC 4370 
433* [F |)( ■■ i theh 4360 
1344 PRINT 'SOURCE LOCALE DE -".•". 91 

LITHIUI1 EN - ■ 

475* ooto «ra 

43-;* print >LE dilithiub se TRQU ■: 

.- iis 3 ite lunaireest him 
>:e • 



437* 


IF F? ■ l MEN PRINT ".£•; REPARA1 


IONS 


■ : ;;-■. s 


ONT TEBnlrl-:-;; 


43s* 


SOTO 1040 




*753 


R£H 




1440 


RE" DESCRIPTI 


1M EE L EHDRfl I I 


441a 


OEM 




442* 


■ 


- M «■"■% 


4*;* 


for ■; ■ i ro 


■ % Mrj-l 


4410 


RE-D E* 


IVIll^ 1 


4*1* 


NEXT X 


IV ■■ 


44-;* 


RET ,-■■ 


■ • ■ 


4579 


R£B 




4?-;* 


REM :OHVERSI0H 9SJET-CHIFFRE 


*59* 


rem 




4-;** 


FOR J - 1 TO 


LEN <tfi 


4619 


IF -in Ei 


j. 1 ■■ > ■ ■ rHEN *-::-3 


*-;;* 


NEXT J 




4630 


I - - 1 




4640 


RETURN 




4610 


C* * HID* • El 


, J * 1.3) 


466* 


I . * IF TAKE 


- i or do: - i 


THEN CJ * LEFT* 


• C«, 3 1 


467* 


IF :i ■ *£tE' 


OR C* ■ -KEV 


OS 


:» - 'CLE' then I - 1 


46*0 


IF C« - "SEA" 


OR CI - 'KIT- 


THEN I - * 




469* 


IF C4 - "OXY" 


OP c* ■ *rtOD" 


THEN I ■ Z 




4?a* 


IF C* ■ "ILL" 


THEN I » 4 


*71* 


IF C» - -ROB* 


THEN I - 1 


4720 


if cs * ■»»■ 


OR C« ■ "de-;- 


THEM I > 6 




*7l* 


IF C* - -BOW 


TNEN I - 7 


4740 


IF C* « "TRA" 


THEN I - 5 


4 7-5* 


IF C» - •CM" 


OR C* - "DIL* 


THEN I ■ 9 




4 7.;a 


IF C» ■ ■BES- 


THEN I ■ 1* 


477* 


IF C» • "UNI" 


THEM I - 11 


4839 


IF C* - -MIR* 


THE* I - 12 


4340 


IF C* ■ -E60- 


THEN 1-13 


45?* 


IF C* ■ -PAC" 


OB Cl ■ -ENE* 


THEN I ■ 14 




4960 


IF Cf • *HAR- 


THEN I ■ 13 C«OH 


■ i 


:uo)( * ? 




467* 


IF CI ■ "SftC- 


THEN I - I« CHOX 




:box * 7 




463* 


RETURN 




4899 


PEN 




49*9 


REM PROCESSEUR D'ESSAIS 


4910 


iHPur e» 




*928 1 


;i - lefti ■ ei.-;; 


*539 


IF Cf - "TRY" 


OP Ci » -'J5E" 


OR 


Ci • -£•;•;- or 


C* - "UTI" TMEW 19«0 



4949 I « - 1 

4959 FETIJPN 

wet coeus 4-;** 

4979 IF I ■ 1 THEN 581* 

'95* IF 0<I) ■ 99 THEN FET1JPW 

4998 PPIHT 'U0U8 H'AI/eZ P&5 DE *l 

pii;ht* 1 e*. len 1 if/ - j:>' " ■ - 
599* 5OT0 4940 
5997 IF 0'5> - 27 OP 0'5> • £5 T*Er. 



' 63 1 



175 



ECHC 



5819 PPIHT "i^OTPE TEHTATCUE 

UE ' I * 

5*2* GOTO 4949 

5*3* REM 

3840 »E1 INSTRUCTION* 

3859 PEfl 

3860 PRINT "■■vj: HOW E'E-: E:^-ie SUA - 
A eURFRCC DE " 1 

5879 PRINT "'--• F_t.,(£rr ■ 

E8 PESERVES 'i 

3*90 PRINT *£T tjN TEMPS T»ES LIMITEi PO 

i;c BURUIURE - 1 

5899 PPIHT "PQIJP UOIJS DEPLft'IEP. 

ZZ EHTPER LES': 

5189 psiht ■DIRCCTIONt HORIKOU I 

s>,oue»T<au"; 

3110 PRINT "0 OU M .'.HftUT. B& c . (Hi 
.M,B.U.D> "J 

3)20 PPIHT "UOUfi "LLE2 FBIRE Ld REHCONT 
F£ 0€ OIUEPS ': 

5139 PPIHT -iJEJET-; £T DE SITUATIONS PEN 
D&HT Lli BUPEE- 

514* PPIHT -DE UOTRE AUENTURE POyP :OtWI 
iJHIOUER AUEC ": 

315* PPIHT "UOTRE PERSOHNfWe.eNrREZ PES 
coNnnHOE^; 

5Hi* PRIMT "' UECEE'I f L ' WFINITIF ) SUIO 

IES PAP DES "J 

317* PRINT -HOWS D'OBJET-; 51 <:EL« EST '• 

ECES8AIRE 

3189 PRINT -FOUP lm BITUATIOM DOnnE-E'. 
PPEHDPE KXX, ' I 

3190 PRINT 'QUITTER. FIN. INUEMTORIER ■- r 
> UNE FOIS- 

329* ppInT -QUE UOUS SENBLER BURUIURE. L 
E BUT EST DE "■ 

3£I* PPIHT -RESTEP LE HftXIBUW OE TE^FS 
CN YIE -i 



3£4* RETURN 
3:50 F£H 

| ■ ■ ■ .. ■ : . ■ 

3270 REH 

.■ . ■ ELECTRON! 

329* BftTn \]H SEALAUr-UH KIT OE -"->---.- 
[PATIALE 
■ : . ;ehe 
131 a DATA ntNATEUR 

5-:* : ■ 

5J30 :-'..'.■, DESACTIUEUR 
3349 onm UNE EOMEE ATOHIQUE 
333* 0«T* UNE UNITE DE TRAHSPORTEUR 
5369 r«i- rr f CRISTAUM DE OIlIthI'ji 
5ir* DhTm UN MESSAGE DE L'ORDIHATEUC 
538* DATtf, UNE UNITE DE PU1 ■ ■ ■ 
339* DATA UN BIRROIR 
548* DATA UN BAOCE-CODE 
34i* DmT^ UN PAC* D 'ENERCIE 
342* DATA UN HARHAI8 QUI ?£ = ■£- :■: TPAN 
5P0RTER £ OE JETS DE PLUS 
343* D-r- uh SAC POUVAHT COHTEHIE ■' II 
ETS 

344* PEN 

5459 REn DQKNEES DES ENDROITS 

34i;« PEN 

5479 Data a nape SERCHITATK 

3489 DATA SUP RUIN OF POSIDOMIUS 

3490 DATA a UH ENDROIT VERS L "EST :. I 

A UNE SOKE D'OMEPE TOTALE 

3589 DATA A THIXT DAMS £T PHIHIUS 

3310 DATA - PASSE IN haeM'J-; BINS 

552* DAT" - 'ISATEif BENILUS 

5539 DATA A HAhE (.'APQPUH 

5349 DATA A BOUT EXODUS 

5558 DATA DAMS LES AR IS TO TELES 

55-;* DATA DA-'-; :., .-.. -;..>; ■>■,., JF.-.r 

3370 Data a lacus sobniorub 

556* DATA a LACUS MORTIS 

5599 DATA LA CROUTE EST TPE-; FINE fi CET 

ENDROIT 

5-;89 DATA a L'EST DE MAP TERIUHS 

561* DATA A LA EASE DE PLATO CRATER 

362* DATA UOUS P00y£2 APERCEUOIR IUEL01 
E CHOSE OUIBPILLE UERS L 'QUEST 

5638 DATA DEUAHT UH SOUCLIER METAL:. IQl 
E 

364* DATA one INSCRIPTION-UEHTILATOR 5 
HAFT 102 

565* Data a L'EST DE MARE SEREHITATIS 

566* DATA UOUS £'£•: DANS UNE TOTALE OBS 
CUP ITE 

567* DATA UN ENDROIT OU UNE NAUETTE SP 
ATIALE S 'ESTECRASEE 

5669 DATA L 'EHTPEE DU VAISSEAU EST TOUT 

PRES DE UOUS 

369* DATA AU MILIEU DE BARE IBIRIUH 

378* DATA DANS LE SftS DE DECONPRESS I ON 
DU UAISSEAU 

3719 DATA DAN? LA SOUTE OU LE fijE. EST 

EHTREPOSE 

3720 DATA DANS LA SALLE DES MACHINES DU 
SHUTTLE 

373* data dans la salle de controls du 

uaisseau. 

574* data dans un sas de decompression 

373* data gous une tpappe une £■>£:.-£ 

3760 data descend dans un passage ee " 

ehtilation 

5778 data dan-; un Passage de vehtilamo 

57s0 data a une ouie de uehtilatioh - ' 

rauers l'ouie 

5790 data une coursiwe eclairee 

5883 data dans un corridor eclaire o'uh 

E STATION SPATIftLE 

3S10 DATA DANS L'INFIRMEPIE OE LA STATI 

ON SPATIALE 

3829 DATA DANS LA BIBLIOTKEOUE QUI FAIT 

OFFICE DE SALLE DE LOIS IRS 

3639 DATA DAMS LE BUREAU D'J COBI 
T DE LA BTA- TIOH. 

3648 DATA IL FAIT CHAUD [CI 

3839 DATA DANS UH DEB ARRAS- UNE SALLE 
DESAFECTEE 

3669 DATA DABS LES DOPTOIRS 

387* DATA DEUAHT UH ASCENCEUR Atj si EA j 

-2 

3889 DATA DEUANT UH ASCENCEUR AU Ml EAU 

8 

5899 DATA DANS LA SALLE DE COHTROtE DE 

LA STATION SPATIALE 

3989 Data dans la SALLE OU TRANSPORTED 

5919 DATA BAHS LE LABORATOIPE DE LA STA 

TIOH 

392* DATA UERS LES HANGARS 

593* D&TA L'mIPE DE LAHCEMENT £i 7 JUSTE 



5938 DATA a i;n EHTRESOLCC'ESr ■■.;■-: 

AHS LA COIN:. 

3968 DATA DANS UM£ ETPOITE COURSIUE 

5979 DATA UOUS £ T£S BAHS UNE PIECE RE 

LAIS 

3988 DATA A LA EASE D "UNE ECNELLE 1ET« 

LLI0UE 

5999 DATA Dans une PIECE AGREABLEHENT D 

ECOREE 

6*3* DATA DANS UNE PIECE CU'A HUR 

ES POPTES 

6*10 DATA DANS UHE RESERUE SECRETE- 

OUE B'OXVGEKEI QUE OE PACKSIHAIS ILS SON 

T PADIOACTIFS' 

692* DATA UOUS TROUUEZ UH HARHAIS QUI P 

EUT UOUS RERmEttpe DE FRANSPQRTER : - 01 

JETS 

6930 DATA UOUS TROUUEZ UN SAC POUVAHT C 
OHTEHIP 2 OEJETS 

6*48 REM 

6939 REH DONNEES DES COOES 

6368 REM 

6378 DATA 87.^4 92 - I 5 - 38 . 83 . 81 . 81 

6888 DATA 99.33.14.81.39.80.02,03 

6363 DATA 02 . 33 . 1 4, 94 , 9* . 8*. 34 , 84 

6893 DATA 81 ■05,93- 00.90.00.09.03 

6*93 Data 04.09.03.05,00,00, BS.OS 

611* DATA 38. 38.03. 98. 83. 33. 97. 87 

612* DATA 08.31.39.11.93.96.86.86 

6130 DATA 68. 87. 19.33.38.96.09.99 

6140 DATA 13. 32. 14.87.89.80. 11 II 

6139 DATA 03.09,14.86.83.38.12.13 

6160 DATA 12. 13.07. 16. 33. 30. 14. 14 

6170 DATA 43. 1 I .83. 13.38.99. 13- 16 

6189 DATA 39. 16. 12.22.03,**. 17. !■; 

6198 DATA 99.99-99. 99.38. 80. 19.29 

62*8 Data [1. 10. 91, 00,00, 99> 21, 21 

6218 DATA 1 7 16 . 87. 16. 0*. 0*. 2 I ■ 11 

6229 DATA 16 - 1 7. 1 1 . I 7, **, 89. 23. 23 
6239 DATA 13 . 1 9 . 39 . 99- 99 . 9* . 24 . 2* 

6231 DATA 18.30.29.9**9.99.25.25 

6232 DATA 00.00.00. 19,21.9*. ?.; U 
62 33 DATA 69.39.60.9O.89.20.27.27 
6234 data 93 06 13,99,90,23,29,30 

6233 Data 24,90,99,99,22.99,31,31 

6236 DATA 23- 23 . 99 . 99 . 9* . *9 . 32 . 33 

6237 DATA 27, 26 . 3 3. 32 . 24 . 39 . 34 . 34 

6230 BATA 23.93 38. 31 .88.83. 34. 34 
6239 DATA 34. 23. 41. 38. 08-08. 34. 34 



-::»5 i ■ . 19-99.34.34 

... ■ , .... . 

S2S0 r- T - B4 ]. 

6279 DATA 90 ■■ I 1 ■ -- -. 
6290 

•"£90 DATA 90 - KJ.00.09 

6309 DATfl 99 ;-; 99 gg £1 B9 ■' 13 

6319 DATA 90 ■ 1.00.44.44 

6329 ( 9-43-43 

633* DATA lr 09 IS 99 99 99 16 •? 

■ ..' DATA '6 00 19. 19 ■'■• 99 - 

■ z-5-i Cfi. .}.} js .».- :_: .<.. gg ■ ., . 
6368 DATA 90 90 90 £7.*2.9* 4] 4; 
6370 DATA 99 90 ■ '■--:•: 
6399 DATA 90 12 00 -:■■) 90-49 i-: 1-: 
63SO DATA 99 1-: ■}■! ■:■•)■)■} 5: - ... 

6490 data 98 99 90, 48, 99,49 n 31 

6410 DATA 09 06 (3.99.99 51 *T 5" 

6429 DaTm 4i go bo SO- 08 90 74 <i 

6439 DATA d-i 4.; 43.47,43.39 =9 ».- 

6449 DATA 90.51 00.30.45,09 54 51 

6450 O-Tm .:..■} 31 *9 09 48 90 JO 30 
-:j-» DATA 50 -}^ (9.00,46 90.54 34 
S479 DATfl -I--} 55 56 00,44.00 •.* 51 
6453 D-TA 98.86 34,00.09.00.33 56 
6450 Data 99.56 53,90,00.90.34 51 
6533 DAT- 55.59 99,99,99 -^-i :* I- 
6518 D-Tc 34.60 5- 52 60 •>■} ^± 34 
6523 r»T» 99-61 ■ 33. 36-86-66. *4 54 
•■378 DATA 33.80.39.00.00-00.34 54 
65(8 D-r_ 32.90.00,30-00,00.34 J4 
6558 C-ta 36.00,00,00.09.00,34 34 
6363 D-Tk 57.39.66.63.68 09.37 5" 
16696 BEM 

16685 REH DESSIN HC-P 

198 19 REH 

13929 HCOLOR - 3' FOR DD - 9 TO 135 

HPLOT BD.193 HPLOT DD.199 NEXT 'jZ 
FOR OD - 166 TO 196 HPLOT 8.DD 

HPLOT 135. DO NEXT DD 
1910* IF P : ■ 29 THEH 104*9 
19206 [F p ; 2* AND P < * 46 THE-. -- 

■ P - 29' GOTO 18410 
18398 IF P > 40 AND P < - 61 THEN Pf 

- P - 4* GOTO 18420 
16433 ON P COSUB 10599, 11900. 11509. 1299 
8, 125*8. 13993. 13589. 14899. 14399. 15990- 15 
383, 16388. 16508-17389. 17583. 15966 16=08 
19883.19303,23386 
18483 GOTO 10430 

13413 OH PP GOSVB 20590,21990,21599.229 
86. 22589. 2 3993 ,23333. 24883. 24596. 256-' ; 
336*. 26*38. 265*8. 2736*. 27503. >9900 2* 100 
.29**3.2933*. 38083 
19413 GOTO 18453 

18428 OH PP GOSUB 33503. 31860 '1500 320 
03 . 32500. 33339 . 33383 . 34990. 34508 . 75368 . ? 
5530,36833. 36586. 3 7366.7 7508. 78396 -3S500 
. 39000 . 39533, 48033 . 49509 
1*43* PP • 0. RETURN 
1*383 REM P-l 
13310 HPLOT 8.138 TO 25,143 TO 25-163 

TO 13,170 TO 0,178 TO 5.165 TO 1 5 - '. 7>l 
HPLOT 5,1#T3 TO 5.140 TO 0.149 
10529 HPLOT 0.133 TO 5.1(5 TO 13-145 

TO 23.140' HPLOT 3.148 TO 15,145 

TO 25.168 HPLOT 5.178 TO 19.199 
13530 HPLOT 15.150 TO 18.155 TO, 16. 165 
TO 13.169 TO 13.160' HPLOT 13-163 

ro 34.i7i to zs.ire to 19.105 

HPLOT 13.169 TO 13.139 
10348 HPLOT 12.167 TO 17,161' HPLOT 29. 
178 TO 2,166' HPLOT 23.173 TO 27.167 

HPLOT 27.173 TO 31.169 
19539 HPLOT 23.139 To 39.147 mPlOT 45. 
163 TO 38,135 TO 31,143 TO 34,133 

TO 37.131 TO 74.134 TO 97,131 

TO 90.133 TO 190-146 TO 131.132 

TO 184.137 
18368 HPLOT 139,136 TO 123.152 TO 135,1 
4S HPLOT 73.174 TO 79-173 TO 88,166 

TO 97,166 TO 193,173 TO 99,173 

TO 95.175 TO 83.172 TO 79.173 
18370 HPLOT 99.173 TO 182.172 
19573 FOP PP • TO 10' HPLOT C 

RHD (1 ) « 1I0> « 3,(( PHD < 1 ) 

t 33 > ■• 105 > HE/tT PP 
10568 RETURN 
11330 REM P- 2 
11010 HPLOT 8.148 TO 4,158 T3 58.133 

TO 73.131 TO 98.130 TO 108-131 
11326 IF H<2.3> - N<2,7> THEH HPLOT 

TO 133.130 
11038 HPLOT 39,134 TO 68,133 TO 99.154 
TO 97.136 TO 76,161 TO 32,136 TO 79 - 1 34 
11848 HPLOT TO 23134 TO 25. 155 

TO 48.155 TO 41,136 TO 26-136 

TO 26.137 TO 42-137 TO 44.156 

TO 26-156 to 46.153 TO 40-159 

TO 26.139 
11843 GOS'JE 10373 
1133* RETURN 
1130* PEM P- 3 
1151* HPLOT 3.146 TO 4.130 TO 30.149 

TO 1*9.131 TO 123-138' HPLOT 47,155 

TO 63-153 HPLOT 47-136 TO 63.156 

HPLOT 45.157 TO 67-157 HFlOT 44,138 
TO 64,136 

1132* HPLOT 18,178 TO 13.178 TO J0.173 
TO 45.176 TO 37,167 TO S3. 165 HPuOT 36. 
175 TO 35.170 HPLOT 37.167 TO 45-1*7 

HPLOT 5.193 TO 15.165 TO 33.185 

TO 118.186 TO 138.190 
11533 HPLOT 134.154 TO 115.154' 

HPLOT 1*7.155 TO 1*9.155 HPLOT 113,1 
53 TO 113, 133 
11333 GOSUB 13375 
11340 RETURN 
1280* REM P-4 

12919 MPLOT 9.139 ro 195.139 HPLOT 180 
■135 TO 115.149 TO 133.145 TO 133.142 

HPLOT 28,176 TO 73.173 TO 65.166 

HPLOT 130.163 TO 102.163 TO 170 [90 
12628 HPLOT 36,155 TO 35.152 TO 35-132 
TO 60.158 TO 63.132 TO 80.132 TO 63.155 
TO 98.158 TO 53.158 TO 53.156 TO 35.156 
TO 38.155 HPLOT 40,136 TO 37,161 
12938 HPLOT 73.130 TO 79,161 HPlOT 99 
135 TO 90,159 HPLOT 60.153 TO 60.13< 

HPLOT 37, 133 TO 63, 153 
1284* GOSUB 19373 RETURN 
12398 REM P-3 

12510 HPLOT 0,138 TO 133,130 KPLQT 73 
160 TO 43.133 TO 69.169 hi-lOT 70 :■ 

TO 75.186 TO 9* 17* HPLOT 123.135 

TO 133, 130 
1252* GOSUB 10375 RETURN 
1309* REM P-6 
13919 HPLOT 9.159 TO 108.155 TO 133 130 

■ HPLOT 38.175 TO 5*. 16* TO 100 : I 

TO 93.166 TO 35. 165 TO 30. 173 
hplOT 43,199 ro 63,170 ro 3*.t60 
HPLOT 69.179 TO 98.171 TO 190 

13*20 GOSUB 18575 IF QC4) • 6 THEN 
HTAB 4 UTAB 21 PRINT *»-• RETURN 

13589 PEH P-7 

13519 HPLOT 6,156 TO 50.153 HPLOT 149 

139 TO 133,144 HPLOT 40,170 TO --■' ■ 

ro 94. 139 ro 00, i 10 TO 110 l«0 
1332* COSUB 19375 RETURN 
14380 REM P-3 



■ 

■ ;55 ro 93 ;*( -- 
to 129 . 

■ 
■ ■ ■ ■ ■ ■■■ 

1 ■ 

145*0 F£r P.J 

14519 HP 

: 
■ 
' . ' 

-.5096 REl 

15610 HPt 

mSUI 19979 

15026 

15638 HCOLQ' 
TO 55-1 

HC0LQF • - ; ■. 

TO 94.174 

HFLOT 50 179 ~: 57,174 TO "4 ;-* 

TO 58-17* 
15040 HCOLOR ■ 3 HPLOT 50 '.'t 

TO 60 : 77 

to 53 i-0 HTAl 10 --; --- :-.- . 



155*8 REM F-l 1 
15518 M.~^.;r 0. 130 

15523 HPLOT 153 

TO £2 172 HFLOT r: 169 ' " 10 - 
TO 53-153 TO 73,i5 l rO ■ 
TO 79 I-.' - ; '.:t [03 1 7« - 
TO 120 ',60 tC 133.156 
iOSUl 10579 RETURN 

16096 REM P"I2 

16016 HPLOT 159 ': : r* isfl - ■ . 

178 TO 40 |93 : ; 70 ;-u HPL01 1*3 

TO 120. 164 ro 175 165 
16020 HF^OT 69 1^5 TO 7.) ;<" ■ ■ 
TO -;o 160 TO r!0 155 TO "0 160 -•_"- "8 
155 TO 68.163 HFLOT 4 165 TO S 

HPLOT 3- 166 TO 9. 166 r>FL'/T Z |«7 

TO 5. 167 HPLOT 3 16-; K 

HPLOT 4.169 TO 9. 169 

16038 G0SU1 10575 RETURN 
16300 REB P- 13 

16513 HPLOT 9.149 TO 135 140 HI 
73 TO 133-173 HPLOT 20.17B " 

TO 78.184 HPLOT 10-163 TO 19 139 

HTAB 2 "T-E 21 PRINT "(■ HTAl . 

UT^-E 21 PRINT "002" 
16313 HTAB 3 UTAB 19 FfluT - 
R- ht^e 5 ••'»Z 20 PRINT 
1632* RETURN 
17900 PEH P»14 
17010 IF M. 14. 5 - - > HI 14 - THEH 

GOTO 17940 
17828 HPLOT 9,149 TO 135,159 II I 

< > 14 THEN RETURN 
17333 HPLOT 53.178 TO 60.170 TO 60 '■- 
TO 30.176 TO 50.173 HPLOT 53-172 

TO 56.172 TO 53. 174 

179(3 GOSUB 18575 RETURN 

17583 REM P-15 

17518 HPLOT 0,129 TO 00.128 TO 1-'.' ■ '.' 

TO 100.158 TO 85-170 TO 8.170 •■- 

■ 130 TO 119.123 TO 118.155 TO 160 * 50 
HPLOT 15-129 TO 39.115 TO 49,120 
HPLOr 20.178 TO 10.173 TO 3.175 
HPLOT 63.17* TO 78.198 

17328 HPLOT 68.129 TO 99,143 TO 

TO 13.173 HFLOT 38-143 TO 30,170 
HPLOT 88.137 TO 9«-l37 TO 98.137 
TO 33.137 TO 35.143 HPLOT 99 157 
TO 67,146 TO 55.146 HPLOT 33,143 
TO 67.145 HPLOT 33.144 TO 67.144 
HPLOT 93.176 T.) 119,179 TO 133-165 

17539 HPLOT 10. 133 TO 68.175 HP I 

40 TO 43.143 HFLOT 5.110 HPLOT 60,114 
HPLOT HO. 118 HPLOT 123.143 HP 

.133 RETURN 

18303 REM P»l< 

18180 GOTO 13380 

1S390 P£M P-17 

10518 GOTO 13889 

19889 PEN F-10 

19188 HPLOT 9.139 TO 90,130 TO H 
TO I. 198 TO *. 101 TO 49. 1 "1 HI 

3,109 TO 95.179 TO 94,13* ro 134.100 
TO 135,161 TO 93-131 HPLOT 9.198 
TO 40.160 TO 43-139 TO 0,199 TO : 190 
TO 41.161 HPLOT 133.190 TO 93.160 

19110 HPLOT TO 94.169 TO 134.190 
TO 135.169 TO 93,159 

1920* HPLOT (8.138 TO 93.138 M 

TO 49,160 HPLOT 59.1(5 ro 67 133 
TO 67.153 TO 63.145 TO 33.145 
MPLOT 95,130 TO 67.129 TO 56 I !■' 
HPLOT 49.173 TO 39-145 TO 40.135 
HPLOT 33.168 TO 67.178 TO 05 [00 

192*3 HPLOT 48.168 TO 40.179 

19210 HPLOT 93.135 TO 183.1(5 TO 95 1 33 

19300 HPLOT 6.166 TO 67,128 TO 133.199 

TO 165. 145 ro 133. 198 TO 67 [70 I 
TO 38. 143 TO 8-100 

19400 HPLOT 39.129 TO 96.129 M 

TO 39. 161 TO 79. 129 RETURN 

1938* REM P-19 

19383 IF 0<2' • 19 THEN UTAB .' ' 
HTAE 11 PRInr -i )■ UTAB 22 
HTAB 12 PRINT T- 

19318 GOSUB 30066 GOSUB 3*097 
GOBUB 38384 

19315 90 ■ 3 

19520 FOR PP * 15 r.J 42 HFLOT •■ 
TO PP. 103 NEXT PP ■ FOR PP ■ 4£ 
TO 50 QQ ■ 00 - I HPLOT PP, [00 
* 00 TO PP. 165 • 00 HEXT PP 

UTAB 20 HTAB 2 PRINT "••••- 
UTAB 19 HTAB 3 PRINT '••■•••" 

19538 "THE 1 fi TmE 3 PRINT •■•••' 
RETURN 

20033 PEH p. 20 

20910 G99US 90091 COSUB 58802 

HCOLOR - £ F,jp pp . 1^5 TO 170 

HPLOT 60. PP TO 75. PP' HI II PP 

HPLOT CI . 17; TO 74. 171 hplo: ■ 
TO 73. 172 HCOLOR • 3 
29*13 HCOLOR ■ 9 HPLOT 23.173 

TO 23. 137 TO 10-1 IS 

HPLOT 30. 160 TO 25 17.: H 

" 3 
29*29 FOP PP • TO 20 HPLOT |5 

. 3 i COS ■ pf. ,, t« . i ■ ■ 

HPLOT • 70 * 7 i COS i PR '>, 160 - 7 

. I[t| ■ Rf ) HPLOT - 42 • ! i 

COS ■ PP ■ ■ 165 - ^i SIH <PP 

NEXT pp 
2983* FOR PP • O TO I STEP 1 HI 
,i . '.i , ,,-■■. 103 • 10 1 

HPLOr . 70 . 10 ' 

.51 SIN • PP ' hPL'M 

i cos ■ rr ■ ■ i !0 . 3 . SIN 

... 

20940 FOP IT - * ITtP 1 

HPLOT ■ 
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a suivre 



LE LOGICIEL 
DE LA SEMAINE 



SUPER COBRA 



..pour /4L4RI 



Mission Impossible ? Pas vrai- 
ment et pourtant ! 
C'est dans un decor quasi- 
lunaire de montagnes dechi- 
quetees, de viiies aux immeu- 
bles immenses et de tunnels 
aux contours irreguliers que 
I'helicoptere dont vous sites le 
pilote se deplace pour une 
mission de surveillance ae- 
nenne du territoire ennemi 
Cette mission n'est pas de 
tout repos car I'ennemi en 
question vous attend avec un 
equipement sophistique 
16000 Km parsemes de ra- 
quettes incendiaires, d'artille- 
he lourde. de soucoupes vo- 
lantes et de Flobbynoides 

Vous disposez de bombes et 
de missiles pour proteger vo- 
tre vie. et d'un potentiel de 5 
helicopteres au depart de vo- 
ire mission suicide. Lobjectif 
du jeu est de parcounr le plus 
grand nombre de kilometres. 
Chaque arme ennemie abat- 
tue ou detruite vous rapporte 
des points 

Les armes ennemies sont ac- 
tivees en fonction du niveau 
de jeu. 

Lapprovisionnement en car- 
burant compiique un peu le 
)eu : vous devez surveiller 
constamment votre reservoir. 

Pour faire le plein. il est neces- 
saire de detruire les reservoirs 
et citernes d'essence eparpil- 
les sur le territoire. 



Le jeu dispose de 11 niveaux 
de difficultes croissantes. qui 
correspondent a un parcours 
de 1000 miles (1600 km). 

Le decor et la composition 
des armes defensives sont dif- 
ferents a chaque niveau. 

Le niveau 11 est bien entendu 
le niveau ou la victoire est pro- 
che : vous devez alors ramas- 
ser le butin en descendant en 
pique et en vous posant 
dessus. 

Une fois atteint cet ultime ob- 
jectif. il ne vous restera plus 
qu'a recommencer... au ni- *~&t^ 
veau 1. 

Super Cobra est un jeu d'arca- 
de classique, tres rapide et 
tres realiste en ce qui concer- 
ne !e graphisme et le son, pour 
un ou deux joueurs... Parfait 
pour les fans de la manette de 
jeu. de la destruction et des 
BING ! BOUM ! et autre 
SPLASH ! 
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PETITES ANNONCES 
GRATUITES 



VENDS "LADECOUVERTEDUFX- 
702 P- Editions PSI ; 60 F + 50 pro- 
grammes pour FX-702 P el FX 
801 P. Edilions ETSF. prix 30 F + 
N* 5 10 a N' 21 de lordinateur de po- 
che : le lot de numeros : 110 Fou !e 
tout 190 F C LEGRAND 8 Resi- 
dence La Folletiere 76160 
PREAUX. Tel (35) 61 07.90. 
VENDS PC 1251 + CE 125 + pro- 
grammes + manuels + interlace 
sous garantie, le tout 2500 F Eric 
BELLANGER chez M. SANCHEZ 
13 impasse des Coudrays 78310 
ELANCOURT-MAUREPAS ou tel. 
062.03.65. 

ACHETE pour Tl 99 4/ A, modules : 
Basic Etendu. PARSEC. ADVEN- 
TURE : peripheriques et program- 
mes. Tel (29) 25.57 13. Boris AR- 
GIROF 7 rue du Bruleux 88250 LA 
BRESSE. 

VENDS ORIC 1 48K PERITEL + 
cordons + manue! + revues + 
nombreux programmes : jeux, 
trill... valeur 2800 F. prix 2000 F + 
magneto 300 F + lot 30 revues m- 
tormatiques : 300 F D. ELBILIA 
Tel. 557.47.05. 91 avenue Felix 
Faure 75015 PARIS. 
VENDS programme PC 1500 origi- 
nal de Fast load (15 fois) pour 
PC 1500. Prix : 150 f. Renaud 
TRAMSON. Tel. 535.12.76. 8 rue 
A Bayet 75013 PARIS. 
ACHETE pour TI 99/4A le module 
SPEECH EDITOR. M. GENTtL 20 
rue de la Pointe Marguerite 77500 
CHELLES. Tel. 421.14.30. 
ACHETE ORIC 1 48 K bon etat. 
etudie toutes propositions. 
RICHEFEUXPhilippe13 residence 
Benjamin Delessert 72200 LA 
FLECHE. 

VENDS FX 702 P + interface FA2 
(tous 2 sous garantie avec embal- 
lage d'origine) + 1 Cassette pro- 
gramme prix 1100 F Jean Pierre 
CAYOL 62 rue Nau 13006 MAR- 
SEILLE. Tel. (91) 47.71.90. 
POSSESSEUR ORIC 1 48K avec 
tele NB RECHERCHE telecouleur 
PERITEL d'unevaleurmax. 1500F. 
BENISTY Eric 698.06.21 (18 h - 
19 h). 



RECHERCHE POUR Tl 99/4A mo- 
dule Basic Etendu ecrire a Thierry 
VACHEZ rue de la Meijt LE TAMA- 
RACK 38750 ALPE D'HUEZ tel. 
(76) 80.37.13. (le week-end de 
preference) 

VENDS ZX 81 + 16 K + K7 n= 4 + 

"a la conquete des jeux" ache- 
te 1100 F. vendu 850 F Roger 
LAGARDE LES VOUTES 77100 
MAREU1L LES MEAUX Tel. (6) 
009 34 68 

ACHETE pour Tl 99/4A module 
Extended Basic et le module 
MUNCH-MAN. Xavier LANGOU- 
CHE avenue Milcamps 183. 1040 
BRUXELLES Tel (02) 734.04.23 
(apres 17 h). 

Vends Imprimante SIKOSHA GP 
80 M avec interface APPLE II. 11+ 
ou lie teted'ecritureneuve, papier 
et ruban de rechange. 1500 F le 
tout. Joelle LE80UDER 12 rue 
Louis Marteau 95140 GARGES 
LES GONESSE. Tel. 986.22 47. 
VENDS ORIC 1 64 K IF Si vous 
achetez 25 Logiciels pour 100 F 
piece. Patrice CHALANNES 8 ter 
chemin des Bouillons 77400 
LAGNY Tel. 007.52.17. 
VENDS Carte 16 couteurs ZX 81 : 
350 F R. LAIR 29 rue E. Vartin 
94500 CHAMP1GNYSURMARNE. 
Tel. 882.1&23. 

VENDS MULTITECH MPF II + joy- 
stick + docs. + divers program- 
mes (env. 30) + trues + livres 
(APPLE et autres) ; le tout 3500 F 
En cadeau un jeu de housses pour 
I'U.C. et le clavier. Materiel com- 
me neul. Carlos PEREIRA Tel. 
(27)65.00.11. 

VENDS OU ECHANGE pour Tl 99 
4/A un cable magneto-cassette 
80 F + modules 'Le crocodile sa- 
vant" 80 F + "Invaders'" 100 F + 
"Football" 100 F Didier DELAN- 
SAY Tel. 630.97.23. 
RECHERCHE pour Tl 99/4A un 
extended basic (francais) un 
parsec. Patrice ROBIC 79. ave- 
nue Montaigne 33160 SAINT 
MEDARD EN JALLES Tel. (56) 
05.26.43 



VENDS PC 1500 + CE 150 + CE 
1 55 (1 1/83) 3400 F Monsieur ROS- 
SI tel 7581313 posts 4267 (heu- 

res bureau) 

VENDS ZX 81 + 16K (achot* en 
jum 63t sous garantie + 2 Irvres 
sur ZX 81 + CONQUETE DES 
JEUX 800 F Patrick SAVINA 7, rue 
F Brunet 75017 PARIS t*l 
226 49 32 a partir de 17 h 30 

VENDS ORIC 1 48 Ko (09/83) en- 
core sous garantie + livre prc- 
grammation -f 47 programmes 
differents pour ORIC pnx 5000 F. 
Eric LABLAINE TH1EBLEMONT 
51300 VITRY LE FRANCOIS Tel 
(26) 41 80 00 (apres 18 h 30) 

VENDS APPLE He + moniteur Ml + 
Lecteur disque + controleur + 
Carte chat mauve etendue 
(80 col. 64K/Co1. PERITEL) + 
Joystick + manuels + logicels 
ensemble neuf garanti Pnx 
14 900 F. Tel. 344.72 23 

VENDS MPF II (versron SECAM 
PERITEL) sous garantie avec K7 
de jeux et documentation impor- 
tante pour un prix de 2900 F tel 
(99) 08 82.62 le vendredi ou sa- 
medi entre18het20h. 

ACHETE pour Tl 99/4A module 
Basic Etendu 1000 F Jacques 

MALLET tel. 873.96 94 



Oirecteur de la Publication - 

Redacteur en Chef : 

Gerard CECCALDI 



Maquette : 
Chnstine MAHE 



Editeur : 

SHIFT EDITIONS. 

27. rue du Gal-Foy 75008 PARIS 

Publicrte au journal. 

Distribution NMPP. 

Commission pantaire en cours 

N°R.C 83 B 6621. 



Photocomposition : 

NEOTYPMONTREU1L 




Texas Instruments 



JEUX EDUCATIFS TEXAS INSTRUMENTS 
POUR ENFANTS A PARTIR DE 6 ANS 

Pnx T.T.C. 
CTCTEE MAGJOUE 
L'enrant apprend rorthographe 
en dialoguant avec rappareil 
MODULE EN FRANCAIS 
!** niveau : I50mocnouveaux 
• .■",:'. -'■,'■: -■- 
-■■■■ . .■ -"/,.■■'■-'.■;-■■■ 
en francais du film ITT 
MODULE EN ANGLAK 
! " nrveau prononcez les voyefles 
er anglafi 

2" niveau les lettres. les silences. 
les 'rregularrtes. terrronatsons 
.,. - ...-, . .«.- 

'-, .mbes 

■■.„,,.,.,.,.- ■■ ., .. .. ■ 
5' niveau : homonymes anglais 



535,00 F □ 



1 38.00 F D 



1 38.00 F a 



38.00 F D 

38.00 F D 

38.00 F a 

38.00 F a 



I 



BON DE COMMANDE 

TARIFSAU 16/3/84 



Adresse 

Code Postal 
Vie 

Ces prix sont indicatifs et peuvem etre modifies 

sans pr*avit 

Produrti di;ponitile; dan; la limrte de nos nocki 

en rrvaga'Jn. 

Participation aux fraii de port et dexpedHion en 

recommand^ pour les togiciels : + 30 F. 

LA REGLE A CALCUL ; 

65/67. bd Saint-Germain. 75005 PARIS 

Tel. : 325.68.88 - Telex : ETRAV 220064 F/1303 I?AC 



MATHS MAGIOUES 
Un ordinateur pa riant pourjouer avec 
lesnombres 

Livre magique : le reve des tout-petits, 
il parte, il questionne. il rfpond 
CALCULATEURS TEXAS INSTRUMENTS 
POUR LE LYCEE 
TI S5 II : 

Calculateur scientrfique/8 memoireV 
56 pas de pfogrammes/15 niveaux 
de parentheses 246.00 F D 

Tl 57 LCD : 

Le calculateur des progfamrneurs/ 
8 memoires/48 pas dp programmes/ 
15 nrveaux de parentheses/ 
10 etiquettes/converston polaire/texte/ 
.'/:// 240.00F a 



03DINATEUR FAMILIAL Tl 99/4 



CONSOLES ET ACCESSOIRES 

Ordinateur familial Tl 99/4 

• Modulateur SECAM 
O Manuel Tl 99/4 

Manuel assembfeur 

• Cable liaison magneto- cassettes 

• Parte manette -jeux 

Synthetlseur de parole 
Magnetophone cassettes 

EDUCATION A PARTIR 
DES ANS 

• Addrtion-Subsiraction I 

• -'■■:■ :-!'..ri-Subsi/aoion I 

• Addiwm Canon 

• !, 

• Divisxxi I 

■ ■■,■■■■.:■ ■; 

• '.'■ ;/■■■'.■. r. 

• Mteton moms 

• Multiplicity, r-i I 

• Comp et mult. 

• Carotte malic leuse 

• /svoi | 

• Mots croises vol 2 



Prix T TC 

I 190,00 D 

500,00 D 

54,00 a 

252,00 D 

150,00 C 

255,00 a 

680,00 a 

496.00 □ 



PrixTTC 




I34F 


11 


134 F 


U 


I34F 


1 i 


134 F 


1 1 


134 F 


I 1 


134 F 


1 ! 


I34F 


1! 


I34F 




I34F 




125,00 


. 


I7S.00 






. 


195.00 





EDUCATION A PARTIR 
DE10 ANS 



3 Jeux d"entrepnse 



PDOGRAMMEJ MAGNARD : 




• La ponctuation en Fran(ais 


79F 


□ 


• Diviseurs PGCD PPCM 


99F 


u 


LOBIRS 


Prix TTC 




• EHastn 


I34F 


r ] 


O Car Wars 


I34F 


n 


O Connect four 


I34F 


n 


• r 


188 F 


n 


• |eux vfdeol 


I34F 


D 


O Munch Man 


252 F 


n 


• Othello 


188F 


n 


o Parsec 


252 F 


n 


O The anacx 


I34F 


n 


• Ti-lnvaders 


I88F 


n 


• Tombstone city 


I34F 


n 


• Yankee 


I34F 


r l 


/,,;_.,., . ; .,.. 


I88F 


n 


• Jeux Retro II 


I34F 


u 


NOUVEAUX LOGICIELS TEX 


US 


O Retouf du pirate 252 F q Hoppe 


r 252 F 


Demon attack 252 F O Star tre 


ck 252 F 


Masti 252 F O Jo bre 


(ker 252 F 


Burger time 252 F o freasui 


e island 2 52 F 


ORGANISATION 


Prix TTC 




• ( i'li'ir 'I'.idresses 


695 F 


a 


• f ,'■:.■:■ i '',<■ ■ 


375 F 


u 


% Corned financier 


66F 




■ ■ ■ 


I88F 




• Ti Writer 


1 I90F 


u 


PROGRAM MATtON 


Prwnc 




• -mbler 


500 F 


a 


> Extend-*^; 1 


500 F 




■ emory 


SOOF 





ALTTRES LOGK3ELS 

; ■ 
Gestion pnvee ll'ExpansionJ 

• lntrod.au 1199/4(1) 

• introd au Tl 99/5 (2) 

Le lechntques des programmes 

dejeux(l| 
O Les techniques des progr ammes 

dejeux (2 1 
O Jeux de memoiie 

SneggB 

• Adveniureiand 

• voodoo CasOe 

• Thecotjni 

• Mi? tery Fun House 

• Pyramid of Doom 

• ChostTown 

• Savage Island i (. n 

• Golden Voyage 

MODULES ROMOX 
POUR Tl 99/4 

• Motor raiders, le jeu (hi bbyl ■ I 

le plus excitant Janw 

• Anteater.jeu de surwe 

• Hen peeked, une bag i ■ 

. ■ ■ ■ 

• Princess and ftofl 

■■....,- ■ . | 

■ 



FIN MARS 







500 F 




en. nc 




1751 


11 




il 


134 F 




I34F 


1 : 


I34F 


[] 


I34F 




134F 




2S2F 


11 


66F 


11 


66F 


il 


661 


11 


66F 


□ 


66F 


n 


66F 


M 


66F 




66F 


P 



